mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-15 18:40:39 -08:00
Code Issues Projects Releases Wiki Activity

New function ispell-comments-and-strings.

Browse source
This commit is contained in:
Gerd Moellmann 1997-12-03 17:20:13 +00:00
parent 6b04f517ce
commit bc7d6816ee
1 changed files with 20 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

20
lisp/textmodes/ispell.el
View file

@ -80,6 +80,7 @@
;; ispell-region
;; ispell-buffer
;; ispell-message
;; ispell-comments-and-strings
;; ispell-continue
;; ispell-complete-word
;; ispell-complete-word-interior-frag
@ -1981,6 +1982,25 @@ With prefix argument, set the default directory."
(message "Spell-checking done"))))
;;;###autoload
(defun ispell-comments-and-strings ()
"Check comments and strings in the current buffer for spelling errors."
(interactive)
(goto-char (point-min))
(let (state done)
(while (not done)
(setq done t)
(setq state (parse-partial-sexp (point) (point-max)
nil nil state 'syntax-table))
(when (or (nth 3 state) (nth 4 state))
(let ((start (point)))
(setq state (parse-partial-sexp start (point-max)
nil nil state 'syntax-table))
(when (or (nth 3 state) (nth 4 state))
(error "Unterminated string or comment."))
(save-excursion
(setq done (not (ispell-region start (point))))))))))
;;;###autoload
(defun ispell-buffer ()