From a785be29bf2f7dba3c0713145e1a08af79e0020e Mon Sep 17 00:00:00 2001 From: Eli Zaretskii Date: Fri, 17 Jan 2020 11:35:35 +0200 Subject: [PATCH] Fix wording and punctuation of a recent commit * lisp/textmodes/ispell.el (ispell-correct-p): Doc fix. * lisp/emacs-lisp/checkdoc.el (checkdoc-ispell-init): Fix capitalization and punctuation of comments. --- lisp/emacs-lisp/checkdoc.el | 4 ++-- lisp/textmodes/ispell.el | 6 +++--- 2 files changed, 5 insertions(+), 5 deletions(-) diff --git a/lisp/emacs-lisp/checkdoc.el b/lisp/emacs-lisp/checkdoc.el index cbad6f05541..ccdddb47c35 100644 --- a/lisp/emacs-lisp/checkdoc.el +++ b/lisp/emacs-lisp/checkdoc.el @@ -2110,8 +2110,8 @@ nil." (unless ispell-process (condition-case nil (progn - (ispell-set-spellchecker-params) ; Initialize variables and dicts alists - (ispell-accept-buffer-local-defs) ; use the correct dictionary + (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")))) diff --git a/lisp/textmodes/ispell.el b/lisp/textmodes/ispell.el index c06f3915faa..fc529a83596 100644 --- a/lisp/textmodes/ispell.el +++ b/lisp/textmodes/ispell.el @@ -2015,7 +2015,7 @@ quit spell session exited." (defun ispell--run-on-word (word) "Run ispell on WORD." - (ispell-send-string "%\n") ; put in verbose mode + (ispell-send-string "%\n") ; Put the speller in verbose mode. (ispell-send-string (concat "^" word "\n")) ;; wait until ispell has processed word (while (progn @@ -2035,13 +2035,13 @@ quit spell session exited." (or ispell-current-dictionary "default"))) (defun ispell-correct-p (&optional following) - "Return t if the word at point is correct. Nil otherwise. + "Return t if the word at point is correct, nil otherwise. If optional argument FOLLOWING is non-nil then the following word (rather than preceding) is checked when the cursor is not over a word." (save-excursion - ;; reset ispell-filter so it only contains the result of + ;; Reset ispell-filter so it only contains the result of ;; spell-checking the current-word: (setq ispell-filter nil) (let* ((word-and-boundaries (ispell-get-word following)) -- 2.39.2