diff options
| author | Eli Zaretskii | 2020-01-17 11:35:35 +0200 |
|---|---|---|
| committer | Eli Zaretskii | 2020-01-17 11:35:35 +0200 |
| commit | a785be29bf2f7dba3c0713145e1a08af79e0020e (patch) | |
| tree | 56218041ed55938e5fb1a6618260b8d485823aaa /lisp/textmodes | |
| parent | 0d3d3be35cb14db6716b45456862acb846de1a67 (diff) | |
| download | emacs-a785be29bf2f7dba3c0713145e1a08af79e0020e.tar.gz emacs-a785be29bf2f7dba3c0713145e1a08af79e0020e.zip | |
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/textmodes')
| -rw-r--r-- | lisp/textmodes/ispell.el | 6 |
1 files changed, 3 insertions, 3 deletions
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." | |||
| 2015 | 2015 | ||
| 2016 | (defun ispell--run-on-word (word) | 2016 | (defun ispell--run-on-word (word) |
| 2017 | "Run ispell on WORD." | 2017 | "Run ispell on WORD." |
| 2018 | (ispell-send-string "%\n") ; put in verbose mode | 2018 | (ispell-send-string "%\n") ; Put the speller in verbose mode. |
| 2019 | (ispell-send-string (concat "^" word "\n")) | 2019 | (ispell-send-string (concat "^" word "\n")) |
| 2020 | ;; wait until ispell has processed word | 2020 | ;; wait until ispell has processed word |
| 2021 | (while (progn | 2021 | (while (progn |
| @@ -2035,13 +2035,13 @@ quit spell session exited." | |||
| 2035 | (or ispell-current-dictionary "default"))) | 2035 | (or ispell-current-dictionary "default"))) |
| 2036 | 2036 | ||
| 2037 | (defun ispell-correct-p (&optional following) | 2037 | (defun ispell-correct-p (&optional following) |
| 2038 | "Return t if the word at point is correct. Nil otherwise. | 2038 | "Return t if the word at point is correct, nil otherwise. |
| 2039 | 2039 | ||
| 2040 | If optional argument FOLLOWING is non-nil then the following | 2040 | If optional argument FOLLOWING is non-nil then the following |
| 2041 | word (rather than preceding) is checked when the cursor is not | 2041 | word (rather than preceding) is checked when the cursor is not |
| 2042 | over a word." | 2042 | over a word." |
| 2043 | (save-excursion | 2043 | (save-excursion |
| 2044 | ;; reset ispell-filter so it only contains the result of | 2044 | ;; Reset ispell-filter so it only contains the result of |
| 2045 | ;; spell-checking the current-word: | 2045 | ;; spell-checking the current-word: |
| 2046 | (setq ispell-filter nil) | 2046 | (setq ispell-filter nil) |
| 2047 | (let* ((word-and-boundaries (ispell-get-word following)) | 2047 | (let* ((word-and-boundaries (ispell-get-word following)) |