From: Eli Zaretskii <eliz@gnu.org>
Date: Fri, 17 Jan 2020 09:35:35 +0000 (+0200)
Subject: Fix wording and punctuation of a recent commit
X-Git-Tag: emacs-27.0.90~145
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=a785be29bf2f7dba3c0713145e1a08af79e0020e;p=emacs.git

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.
---

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))