From a8a4617aa3860d8634aff6f04edd4bda6770c4bf Mon Sep 17 00:00:00 2001
From: Glenn Morris <rgm@gnu.org>
Date: Thu, 21 Feb 2008 09:01:37 +0000
Subject: [PATCH] (spell-buffer, spell-word, spell-region) (spell-string): Make
 obsolete, in favor of ispell.

---
 lisp/ChangeLog          |  3 +++
 lisp/textmodes/spell.el | 10 +++++++++-
 2 files changed, 12 insertions(+), 1 deletion(-)

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 6a8753690a6..132a8cee142 100644
--- 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 ec451b50497..7cb011ec7ab 100644
--- 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)
 
-- 
2.11.4.GIT