-;;; spell.el --- spelling correction interface for Emacs.
+;;; spell.el --- spelling correction interface for Emacs
;; Copyright (C) 1985 Free Software Foundation, Inc.
;; GNU General Public License for more details.
;; 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, 675 Mass Ave, Cambridge, MA 02139, USA.
+;; 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.
;;; Commentary:
-;; This mode orovides an Emacs interface to the UNIX spell(1) program.
+;; 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:
-(defvar spell-command "spell"
- "*Command to run the spell program.")
+(defgroup spell nil
+ "Interface to the UNIX spell(1) program."
+ :prefix "spell-"
+ :group 'applications)
+
+(defcustom spell-command "spell"
+ "*Command to run the spell program."
+ :type 'string
+ :group 'spell)
-(defvar spell-filter nil
+(defcustom spell-filter nil
"*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.")
+nil means don't alter the text before checking it."
+ :type '(choice (const nil) function)
+ :group 'spell)
+
+;;;###autoload
+(put 'spell-filter 'risky-local-variable t)
;;;###autoload
(defun spell-buffer ()
(replace-match " "))
(message "%sincorrect" (buffer-substring 1 (point-max)))))))
+(provide 'spell)
+
+;;; arch-tag: 7eabb848-9c76-431a-bcdb-0e0592d2db04
;;; spell.el ends here