mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-12-20 10:23:57 +00:00
Code Issues Releases Activity

(spell-buffer, spell-word): Suppress compiler warnings about

Browse Source 
spell-region.
This commit is contained in:
Glenn Morris 2008-02-22 03:57:29 +00:00
parent f62e3e0a29
commit 5693f325af
1 changed files with 6 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
lisp/textmodes/spell.el
View File

@ -61,7 +61,9 @@ and then put into a query-replace to fix some or all occurrences.
If you do not want to change a word, just give the same word
as its \"correct\" spelling; then the query replace is skipped."
(interactive)
(spell-region (point-min) (point-max) "buffer"))
;; Don't warn about spell-region being obsolete.
(with-no-warnings
(spell-region (point-min) (point-max) "buffer")))
;;;###autoload
(make-obsolete 'spell-buffer 'ispell-buffer "23.1")
@ -78,7 +80,9 @@ and `query-replace' the entire buffer to substitute it."
(setq beg (point))
(forward-word 1)
(setq end (point)))
(spell-region beg end (buffer-substring beg end))))
;; Don't warn about spell-region being obsolete.
(with-no-warnings
(spell-region beg end (buffer-substring beg end)))))
;;;###autoload
(make-obsolete 'spell-word 'ispell-word "23.1")