X-Git-Url: https://code.delx.au/gnu-emacs/blobdiff_plain/d1ebc62e6ca3ab4d6f714326ed8ae2c626d30bf1..a6d583c00a8079c98000fdc80c870f7cdcc9f291:/lisp/textmodes/spell.el

diff --git a/lisp/textmodes/spell.el b/lisp/textmodes/spell.el
index 780eeb883d..ddc6788123 100644
--- a/lisp/textmodes/spell.el
+++ b/lisp/textmodes/spell.el
@@ -1,6 +1,7 @@
-;;; spell.el --- spelling correction interface for Emacs.
+;;; spell.el --- spelling correction interface for Emacs
 
-;; Copyright (C) 1985 Free Software Foundation, Inc.
+;; Copyright (C) 1985, 2002, 2003, 2004, 2005,
+;;   2006 Free Software Foundation, Inc.
 
 ;; Maintainer: FSF
 ;; Keywords: wp, unix
@@ -19,15 +20,16 @@
 
 ;; You should have received a copy of the GNU General Public License
 ;; along with GNU Emacs; see the file COPYING.  If not, write to the
-;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
-;; Boston, MA 02111-1307, USA.
+;; Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor,
+;; Boston, MA 02110-1301, USA.
 
 ;;; Commentary:
 
 ;; This mode provides an Emacs interface to the UNIX spell(1) program.
 ;; Entry points are `spell-buffer', `spell-word', `spell-region' and
-;; `spell-string'.  These facilities are documented in the Emacs user's
-;; manual.
+;; `spell-string'.
+
+;; See also ispell.el for an interface to the ispell program.
 
 ;;; Code:
 
@@ -45,7 +47,7 @@
   "*Filter function to process text before passing it to spell program.
 This function might remove text-processor commands.
 nil means don't alter the text before checking it."
-  :type 'function
+  :type '(choice (const nil) function)
   :group 'spell)
 
 ;;;###autoload
@@ -127,9 +129,9 @@ for example, \"word\"."
 	 (forward-char 1)
 	 (delete-region (point-min) (point))
 	 (setq newword
-	       (read-input (concat "`" word
-				   "' not recognized; edit a replacement: ")
-			   word))
+	       (read-string (concat "`" word
+                                    "' not recognized; edit a replacement: ")
+                            word))
 	 (flush-lines (concat "^" (regexp-quote word) "$")))
 	(if (not (equal word newword))
 	    (progn
@@ -162,4 +164,5 @@ for example, \"word\"."
 
 (provide 'spell)
 
+;;; arch-tag: 7eabb848-9c76-431a-bcdb-0e0592d2db04
 ;;; spell.el ends here