emacs-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

emacs-27 a785be2: Fix wording and punctuation of a recent commit


From: Eli Zaretskii
Subject: emacs-27 a785be2: Fix wording and punctuation of a recent commit
Date: Fri, 17 Jan 2020 04:36:32 -0500 (EST)

branch: emacs-27
commit a785be29bf2f7dba3c0713145e1a08af79e0020e
Author: Eli Zaretskii <address@hidden>
Commit: Eli Zaretskii <address@hidden>

    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 cbad6f0..ccdddb4 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 c06f391..fc529a8 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))



reply via email to

[Prev in Thread] Current Thread [Next in Thread]