# HG changeset patch
# User Andreas Schwab <schwab@suse.de>
# Date 898679671 0
# Node ID b7a3c5541bc522880932b62da8c0ca945eac206e
# Parent  5fe3766ec1a8e2fd69a00d135c5eafda7dc9672d
(ispell-highlight-p, ispell-check-comments,
ispell-help-in-bufferp, ispell-skip-sgml): Use `other' widget
type.

diff -r 5fe3766ec1a8 -r b7a3c5541bc5 lisp/textmodes/ispell.el
--- a/lisp/textmodes/ispell.el	Wed Jun 24 09:13:36 1998 +0000
+++ b/lisp/textmodes/ispell.el	Wed Jun 24 09:14:31 1998 +0000
@@ -151,7 +151,7 @@
 (defcustom ispell-highlight-p 'block
   "*Highlight spelling errors when non-nil.
 When set to `block', assumes a block cursor with TTY displays."
-  :type '(choice (const block) (const t) (const nil))
+  :type '(choice (const block) (const nil) (other :tag "on" t))
   :group 'ispell)
 
 (defcustom ispell-highlight-face 'highlight
@@ -169,7 +169,7 @@
 When set to `exclusive', ONLY comments are checked.  (For code comments).
 Warning!  Not checking comments, when a comment start is embedded in strings,
 may produce undesired results."
-  :type '(choice (const exclusive) (const t) (const nil))
+  :type '(choice (const exclusive) (const nil) (other :tag "on" t))
   :group 'ispell)
 
 (defcustom ispell-query-replace-choices nil
@@ -300,7 +300,7 @@
              for a couple of seconds.
   electric   Pop up a new buffer and display a long help message there. 
              User can browse and then exit the help mode."
-  :type '(choice (const electric) (const t) (const nil))
+  :type '(choice (const electric) (const nil) (other :tag "t" t))
 
   :group 'ispell)
 
@@ -818,7 +818,8 @@
 If t, always skip SGML markup; if nil, never skip; if non-t and non-nil,
 guess whether SGML markup should be skipped according to the name of the
 buffer's major mode."
-  :type '(choice (const use-mode-name) (const t) (const nil))
+  :type '(choice (const t) (const nil)
+		 (other :tag "use-mode-name" use-mode-name))
   :group 'ispell)
 
 (defvar ispell-local-pdict ispell-personal-dictionary