master 93141d5: Always send Lisp words to checkdoc-ispell-init

[Lars Ingebrigtsen]

branch: master
commit 93141d581330d94e7eec9f114def2bec15f87866
Author: Lars Ingebrigtsen <larsi@gnus.org>
Commit: Lars Ingebrigtsen <larsi@gnus.org>

    Always send Lisp words to checkdoc-ispell-init
    
    * lisp/emacs-lisp/checkdoc.el (checkdoc-ispell-init): Always send
    the Lisp words to the process (bug#6221).  This allows an existing
    ispell process to be correctly initialised.
---
 lisp/emacs-lisp/checkdoc.el | 14 ++++++++------
 1 file changed, 8 insertions(+), 6 deletions(-)

diff --git a/lisp/emacs-lisp/checkdoc.el b/lisp/emacs-lisp/checkdoc.el
index 2e204ff..aae807b 100644
--- a/lisp/emacs-lisp/checkdoc.el
+++ b/lisp/emacs-lisp/checkdoc.el
@@ -2106,12 +2106,14 @@ nil."
   (unless ispell-process
     (condition-case nil
        (progn
-          (ispell-set-spellchecker-params)    ; Initialize variables and dict 
alists.
-          (ispell-accept-buffer-local-defs)   ; Use the correct dictionary.
-         ;; This code copied in part from ispell.el Emacs 19.34
-         (dolist (w checkdoc-ispell-lisp-words)
-           (process-send-string ispell-process (concat "@" w "\n"))))
-      (error (setq checkdoc-spellcheck-documentation-flag nil)))))
+          ;; Initialize variables and dict alists.
+          (ispell-set-spellchecker-params)
+          ;; Use the correct dictionary.
+          (ispell-accept-buffer-local-defs))
+      (error (setq checkdoc-spellcheck-documentation-flag nil))))
+  ;; This code copied in part from ispell.el Emacs 19.34
+  (dolist (w checkdoc-ispell-lisp-words)
+    (process-send-string ispell-process (concat "@" w "\n"))))
 
 (defun checkdoc-ispell-docstring-engine (end &optional take-notes)
   "Run the Ispell tools on the doc string between point and END.