From c5543232c14acd152ce4b8273af9d23dabaed1a2 Mon Sep 17 00:00:00 2001
From: Case Duckworth
Date: Sat, 31 Jul 2021 19:58:49 -0500
Subject: Aesthetic and message

---
 lisp/acdw-org.el | 9 ++++++---
 1 file changed, 6 insertions(+), 3 deletions(-)

(limited to 'lisp/acdw-org.el')

diff --git a/lisp/acdw-org.el b/lisp/acdw-org.el
index a9c0a8c..41073a9 100644
--- a/lisp/acdw-org.el
+++ b/lisp/acdw-org.el
@@ -246,6 +246,9 @@ the deletion might narrow the column."
 (defun acdw-org/count-words (start end)
   "Count words between START and END, respecting `org-mode' conventions."
   (interactive (list nil nil))
+  (require 'cl-lib)
+  (require 'ox)
+  (message "Counting words...")
   (cond ((not (called-interactively-p 'any))
          (let ((words 0))
            (save-excursion
@@ -285,9 +288,9 @@ the deletion might narrow the column."
                          nil)
                         ;; Ignore sections tagged :no-export
                         ((assoc :tags contexts)
-                         (if (intersection (org-get-tags-at)
-                                           org-export-exclude-tags
-                                           :test 'equal)
+                         (if (cl-intersection (org-get-tags-at)
+                                              org-export-exclude-tags
+                                              :test 'equal)
                              (org-forward-same-level 1)
                            nil))
                         ;; else... count the word
-- 
cgit 1.4.1-21-gabe81