From f6512fe1bd9738e1c2c5c9a7ad92098b2f02fa34 Mon Sep 17 00:00:00 2001
From: Case Duckworth
Date: Fri, 11 Mar 2022 20:04:05 -0600
Subject: Uh

---
 lisp/+ispell.el | 52 ++++++++++++++++++++++++++++------------------------
 1 file changed, 28 insertions(+), 24 deletions(-)

(limited to 'lisp/+ispell.el')

diff --git a/lisp/+ispell.el b/lisp/+ispell.el
index c3ee417..697233f 100644
--- a/lisp/+ispell.el
+++ b/lisp/+ispell.el
@@ -58,30 +58,34 @@ prefix ARG is non-nil; then it just saves them."
   (unless (buffer-file-name)
     (user-error "Buffer not attached to file"))
   (hack-dir-local-variables)
-  (when-let ((new-words (+ispell-append-removing-duplicates
-                              :test #'string=
-                              ispell-buffer-session-localwords
-                              (alist-get 'ispell-buffer-session-localwords
-                                         dir-local-variables-alist)
-                              (alist-get 'ispell-buffer-session-localwords
-                                         file-local-variables-alist)
-                              (+ispell-buffer-local-words-list))))
-    (save-excursion
-      (add-dir-local-variable
-       major-mode
-       'ispell-buffer-session-localwords
-       (setq ispell-buffer-session-localwords
-             new-words))
-      (when (or arg
-                (y-or-n-p "Save .dir-locals.el?"))
-        (save-buffer))
-      (bury-buffer))
-    (or ispell-buffer-local-name
-        (setq ispell-buffer-local-name (buffer-name)))
-    (save-excursion
-      (goto-char (point-min))
-      (while (search-forward ispell-words-keyword nil t)
-        (delete-region (point-at-bol) (1+ (point-at-eol)))))))
+  (let ((print-level nil)
+        (print-length nil))
+    (when-let ((new-words (cl-remove-if (lambda (el) (eq el '\.\.\.)) ; XXX: NO IDEA
+                                        ; where this came from
+                                        (+ispell-append-removing-duplicates
+                                         :test #'string=
+                                         ispell-buffer-session-localwords
+                                         (alist-get 'ispell-buffer-session-localwords
+                                                    dir-local-variables-alist)
+                                         (alist-get 'ispell-buffer-session-localwords
+                                                    file-local-variables-alist)
+                                         (+ispell-buffer-local-words-list)))))
+      (save-excursion
+        (add-dir-local-variable
+         major-mode
+         'ispell-buffer-session-localwords
+         (setq ispell-buffer-session-localwords
+               new-words))
+        (when (or arg
+                  (y-or-n-p "Save .dir-locals.el?"))
+          (save-buffer))
+        (bury-buffer))
+      (or ispell-buffer-local-name
+          (setq ispell-buffer-local-name (buffer-name)))
+      (save-excursion
+        (goto-char (point-min))
+        (while (search-forward ispell-words-keyword nil t)
+          (delete-region (point-at-bol) (1+ (point-at-eol))))))))
 
 ;;;###autoload
 (defun +ispell-move-buffer-words-to-dir-locals-hook ()
-- 
cgit 1.4.1-21-gabe81