Commit 93141d58 authored by Lars Ingebrigtsen's avatar Lars Ingebrigtsen

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.
parent 5065698c
Pipeline #8871 failed with stages
in 44 minutes and 20 seconds
......@@ -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.
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment