(selective-display, suggest-key-bindings,

message-log-max): Use `other' widget type.

diff --git a/lisp/cus-start.el b/lisp/cus-start.el
index 79ac44d01c62895839d1202316d57ded2564d4a8..7289533a273d22147b850800bf66d5f5c4f8d2a1 100644 (file)
--- a/lisp/cus-start.el
+++ b/lisp/cus-start.el
@@ -57,7 +57,7 @@
                                        (integer :tag "space"
                                                 :format "%v"
                                                 1)
-                                       (const :tag "on" t)))
+                                       (other :tag "on" t)))
             (selective-display-ellipses display boolean)
             (transient-mark-mode editing-basics boolean)
             ;; callint.c
@@ -123,8 +123,7 @@
             (menu-prompting menu boolean)
             (suggest-key-bindings keyboard (choice (const :tag "off" nil)
                                                    (integer :tag "time" 2)
-                                                   (sexp :tag "on"
-                                                         :format "%t")))
+                                                   (other :tag "on")))
             ;; lread.c
             (load-path environment 
                        (repeat (choice :tag "[Current dir?]"
@@ -188,7 +187,7 @@
             (message-log-max debug (choice (const :tag "Disable" nil)
                                            (integer :menu-tag "lines"
                                                     :format "%v")
-                                           (const :tag "Unlimited" t)))
+                                           (other :tag "Unlimited" t)))
             ;; xfns.c
             (x-bitmap-file-path installation
                                 (repeat (directory :format "%v")))))