procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Fix wording and punctuation of a recent commit

Browse source 
* lisp/textmodes/ispell.el (ispell-correct-p): Doc fix.
* lisp/emacs-lisp/checkdoc.el (checkdoc-ispell-init): Fix
capitalization and punctuation of comments.
This commit is contained in:
Eli Zaretskii 2020-01-17 11:35:35 +02:00
parent 0d3d3be35c
commit a785be29bf
2 changed files with 5 additions and 5 deletions
Download patch file Download diff file Expand all files Collapse all files

4
lisp/emacs-lisp/checkdoc.el
View file

@ -2110,8 +2110,8 @@ nil."
(unless ispell-process (unless ispell-process
(condition-case nil (condition-case nil
(progn (progn
(ispell-set-spellchecker-params) ; Initialize variables and dicts alists (ispell-set-spellchecker-params) ; Initialize variables and dict alists.
(ispell-accept-buffer-local-defs) ; use the correct dictionary (ispell-accept-buffer-local-defs) ; Use the correct dictionary.
;; This code copied in part from ispell.el Emacs 19.34 ;; This code copied in part from ispell.el Emacs 19.34
(dolist (w checkdoc-ispell-lisp-words) (dolist (w checkdoc-ispell-lisp-words)
(process-send-string ispell-process (concat "@" w "\n")))) (process-send-string ispell-process (concat "@" w "\n"))))

6
lisp/textmodes/ispell.el
View file

@ -2015,7 +2015,7 @@ quit spell session exited."
(defun ispell--run-on-word (word) (defun ispell--run-on-word (word)
"Run ispell on 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")) (ispell-send-string (concat "^" word "\n"))
;; wait until ispell has processed word ;; wait until ispell has processed word
(while (progn (while (progn
@ -2035,13 +2035,13 @@ quit spell session exited."
(or ispell-current-dictionary "default"))) (or ispell-current-dictionary "default")))
(defun ispell-correct-p (&optional following) (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 If optional argument FOLLOWING is non-nil then the following
word (rather than preceding) is checked when the cursor is not word (rather than preceding) is checked when the cursor is not
over a word." over a word."
(save-excursion (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: ;; spell-checking the current-word:
(setq ispell-filter nil) (setq ispell-filter nil)
(let* ((word-and-boundaries (ispell-get-word following)) (let* ((word-and-boundaries (ispell-get-word following))