Aesthetic and message

1 files changed, 6 insertions, 3 deletions

@@ -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