diff options
| author | Eli Zaretskii <eliz@gnu.org> | 2020-01-17 11:35:35 +0200 |
|---|---|---|
| committer | Eli Zaretskii <eliz@gnu.org> | 2020-01-17 11:35:35 +0200 |
| commit | a785be29bf2f7dba3c0713145e1a08af79e0020e (patch) | |
| tree | 56218041ed55938e5fb1a6618260b8d485823aaa /lisp | |
| parent | 0d3d3be35cb14db6716b45456862acb846de1a67 (diff) | |
| download | emacs-a785be29bf2f7dba3c0713145e1a08af79e0020e.tar.gz | |
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.
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/emacs-lisp/checkdoc.el | 4 | ||||
| -rw-r--r-- | 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)) |