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

Revert "Always send Lisp words to checkdoc-ispell-init"

Browse source 
This reverts commit 93141d5813.

This would make checkdoc words be used in other flyspell
buffers.
This commit is contained in:
Lars Ingebrigtsen 2021-01-20 22:11:38 +01:00
parent 93141d5813
commit 1a6ed932d9
1 changed files with 6 additions and 8 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -2106,14 +2106,12 @@ nil."
(unless ispell-process
(condition-case nil
(progn
;; 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"))))
(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)))))
(defun checkdoc-ispell-docstring-engine (end &optional take-notes)
"Run the Ispell tools on the doc string between point and END.