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 cbad6f05541901db13f6bf018c0b0621524d2464..ccdddb47c3545c9a91bbda2b10d7e55dd57f9ee3 100644 (file)
--- 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 c06f3915faa462db4db3059cb6e45c18e1de8ff3..fc529a8359660bc0ce8a4946eeaa6f7e99a7788d 100644 (file)
--- 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))