Mercurial > emacs

changeset 22582:122946298ba4

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(version-control, delete-old-versions, require-final-newline, enable-local-variables, enable-local-eval): Use `other' widget type.
author Andreas Schwab <schwab@suse.de>
date Wed, 24 Jun 1998 09:08:57 +0000
parents 2f420ea7b3d4
children fbc32e3ad8e9
files lisp/files.el
diffstat 1 files changed, 7 insertions(+), 5 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/files.el	Wed Jun 24 09:07:36 1998 +0000
+++ b/lisp/files.el	Wed Jun 24 09:08:57 1998 +0000
@@ -203,7 +203,9 @@
 t means make numeric backup versions unconditionally.
 nil means make them for files that have some already.
 `never' means do not make them."
-  :type 'boolean
+  :type '(choice (const :tag "Never" never)
+		 (const :tag "If existing" nil)
+		 (other :tag "Always" t))
   :group 'backup
   :group 'vc)
 
@@ -218,7 +220,7 @@
 If nil, ask confirmation.  Any other value prevents any trimming."
   :type '(choice (const :tag "Delete" t)
 		 (const :tag "Ask" nil)
-		 (sexp :tag "Leave" :format "%t\n" other))
+		 (other :tag "Leave" other))
   :group 'backup)
 
 (defcustom kept-old-versions 2
@@ -238,7 +240,7 @@
 nil means don't add newlines."
   :type '(choice (const :tag "Off" nil)
 		 (const :tag "Add" t)
-		 (sexp :tag "Ask" :format "%t\n" ask))
+		 (other :tag "Ask" ask))
   :group 'editing-basics)
 
 (defcustom auto-save-default t
@@ -329,7 +331,7 @@
 specifications and ignores this variable."
   :type '(choice (const :tag "Obey" t)
 		 (const :tag "Ignore" nil)
-		 (sexp :tag "Query" :format "%t\n" other))
+		 (other :tag "Query" other))
   :group 'find-file)
 
 (defvar local-enable-local-variables t
@@ -347,7 +349,7 @@
 and ignores this variable."
   :type '(choice (const :tag "Obey" t)
 		 (const :tag "Ignore" nil)
-		 (sexp :tag "Query" :format "%t\n" other))
+		 (other :tag "Query" other))
   :group 'find-file)
 
 ;; Avoid losing in versions where CLASH_DETECTION is disabled.