Commit 1a6ed932 authored by Lars Ingebrigtsen's avatar Lars Ingebrigtsen

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

This reverts commit 93141d58.

This would make checkdoc words be used in other flyspell
buffers.
parent 93141d58
Pipeline #8872 failed with stages
in 40 minutes and 42 seconds
......@@ -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.
......
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