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.
This commit is contained in:
parent
0d3d3be35c
commit
a785be29bf
2 changed files with 5 additions and 5 deletions
|
@ -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"))))
|
||||
|
|
|
@ -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))
|
||||
|
|
Loading…
Add table
Reference in a new issue