Mercurial > emacs

changeset 92087:facc33e36f8b

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(spell-buffer, spell-word): Suppress compiler warnings about spell-region.
author Glenn Morris <rgm@gnu.org>
date Fri, 22 Feb 2008 03:57:29 +0000
parents 23ee465a6963
children 580893ad3b18
files lisp/textmodes/spell.el
diffstat 1 files changed, 6 insertions(+), 2 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/textmodes/spell.el	Fri Feb 22 03:56:25 2008 +0000
+++ b/lisp/textmodes/spell.el	Fri Feb 22 03:57:29 2008 +0000
@@ -61,7 +61,9 @@
 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 @@
      (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")