mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-23 22:20:24 -08:00
Code Issues Projects Releases Wiki Activity

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 (unless ispell-process
(condition-case nil (condition-case nil
(progn (progn
(ispell-set-spellchecker-params) ; Initialize variables and dict alists. ;; Initialize variables and dict alists.
(ispell-accept-buffer-local-defs) ; Use the correct dictionary. (ispell-set-spellchecker-params)
;; This code copied in part from ispell.el Emacs 19.34 ;; Use the correct dictionary.
(dolist (w checkdoc-ispell-lisp-words) (ispell-accept-buffer-local-defs))
(process-send-string ispell-process (concat "@" w "\n")))) (error (setq checkdoc-spellcheck-documentation-flag nil))))
(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) (defun checkdoc-ispell-docstring-engine (end &optional take-notes)
"Run the Ispell tools on the doc string between point and END. "Run the Ispell tools on the doc string between point and END.