(pr-alist-custom-set, pr-ps-utility-custom-set)

[gnu-emacs] / lisp / textmodes / spell.el

diff --git a/lisp/textmodes/spell.el b/lisp/textmodes/spell.el
index 780eeb883d88c46a20f2e9c7dd9b77e67c0b7cf5..ddc6788123d544a65a83f13a8688369b6784a495 100644 (file)
--- 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