From 5693f325afa0eff72149cce040cbb86aa5460976 Mon Sep 17 00:00:00 2001 From: Glenn Morris Date: Fri, 22 Feb 2008 03:57:29 +0000 Subject: [PATCH] (spell-buffer, spell-word): Suppress compiler warnings about spell-region. --- lisp/textmodes/spell.el | 8 ++++++-- 1 file changed, 6 insertions(+), 2 deletions(-) diff --git a/lisp/textmodes/spell.el b/lisp/textmodes/spell.el index 7cb011ec7ab..01eff7616a7 100644 --- a/lisp/textmodes/spell.el +++ b/lisp/textmodes/spell.el @@ -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")