(spell-buffer, spell-word, spell-region)

(spell-string): Make obsolete, in favor of ispell.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 6a8753690a650c02f862614277ddf0cf36caf5d3..132a8cee142974a9c9b5e7fc5314fd5ece7fbe63 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -14,6 +14,9 @@
 
        * subr.el (sit-for): Fix obsolete form for nil second argument.
 
+       * textmodes/spell.el (spell-buffer, spell-word, spell-region)
+       (spell-string): Make obsolete, in favor of ispell.
+
 2008-02-21  Kenichi Handa  <handa@ni.aist.go.jp>
 
        * composite.el (compose-chars-after): Fix arguments for a function

diff --git a/lisp/textmodes/spell.el b/lisp/textmodes/spell.el
index ec451b50497f3774cb6a6fea0413a870028d8609..7cb011ec7ab3156b39dfd04736b7c423ab08ff2c 100644 (file)
--- a/lisp/textmodes/spell.el
+++ b/lisp/textmodes/spell.el
@@ -62,6 +62,8 @@ 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"))
+;;;###autoload
+(make-obsolete 'spell-buffer 'ispell-buffer "23.1")
 
 ;;;###autoload
 (defun spell-word ()
@@ -77,6 +79,8 @@ and `query-replace' the entire buffer to substitute it."
      (forward-word 1)
      (setq end (point)))
     (spell-region beg end (buffer-substring beg end))))
+;;;###autoload
+(make-obsolete 'spell-word 'ispell-word "23.1")
 
 ;;;###autoload
 (defun spell-region (start end &optional description)
@@ -138,7 +142,8 @@ for example, \"word\"."
             (goto-char (point-min))
             (query-replace-regexp (concat "\\b" (regexp-quote word) "\\b")
                                   newword)))))))
-
+;;;###autoload
+(make-obsolete 'spell-region 'ispell-region "23.1")
 
 ;;;###autoload
 (defun spell-string (string)
@@ -161,6 +166,9 @@ for example, \"word\"."
        (while (search-forward "\n" nil t)
         (replace-match " "))
        (message "%sincorrect" (buffer-substring 1 (point-max)))))))
+;;;###autoload
+(make-obsolete 'spell-string "The `spell' package is obsolete - use `ispell'."
+               "23.1")
 
 (provide 'spell)