diff options
| author | Lars Ingebrigtsen <larsi@gnus.org> | 2021-01-20 21:46:30 +0100 |
|---|---|---|
| committer | Lars Ingebrigtsen <larsi@gnus.org> | 2021-01-20 22:01:08 +0100 |
| commit | 93141d581330d94e7eec9f114def2bec15f87866 (patch) | |
| tree | e9a42f099fc3d4aad697df9ab7be0b4531acdd85 /lisp/emacs-lisp | |
| parent | 5065698c81dcf241fc234c78bffea54af4203892 (diff) | |
| download | emacs-93141d581330d94e7eec9f114def2bec15f87866.tar.gz emacs-93141d581330d94e7eec9f114def2bec15f87866.tar.bz2 emacs-93141d581330d94e7eec9f114def2bec15f87866.zip | |
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.
Diffstat (limited to 'lisp/emacs-lisp')
| -rw-r--r-- | lisp/emacs-lisp/checkdoc.el | 14 |
1 files changed, 8 insertions, 6 deletions
diff --git a/lisp/emacs-lisp/checkdoc.el b/lisp/emacs-lisp/checkdoc.el index 2e204ff7aea..aae807b8c18 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. |