procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Always send Lisp words to checkdoc-ispell-init

Browse source 
* 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.
This commit is contained in:
Lars Ingebrigtsen 2021-01-20 21:46:30 +01:00
parent 5065698c81
commit 93141d5813
1 changed files with 8 additions and 6 deletions
Download patch file Download diff file Expand all files Collapse all files

14
lisp/emacs-lisp/checkdoc.el
View file

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