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.

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