From: Richard M. Stallman <rms@gnu.org>
Date: Wed, 10 Jun 1998 04:19:36 +0000 (+0000)
Subject: (other): New widget type.
X-Git-Tag: emacs-20.3~658
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=cc0a25e146e7c313a6dcdb72daa4a8acd7db674e;p=emacs.git

(other): New widget type.
---

diff --git a/lisp/wid-edit.el b/lisp/wid-edit.el
index 3e1979012ba..2c9b6e9ddd5 100644
--- a/lisp/wid-edit.el
+++ b/lisp/wid-edit.el
@@ -2909,6 +2909,17 @@ link for that string."
   :format "%v\n%h"
   :documentation-property 'variable-documentation)
 
+(define-widget 'other 'sexp
+  "Matches any value, but doesn't let the user edit the value.
+This is useful as last item in a `choice' widget.
+You should use this widget type with a default value,
+as in (other DEFAULT) or (other :tag "NAME" DEFAULT).
+If the user selects this alternative, that specifies DEFAULT
+as the value."
+  :tag "Other"
+  :format "%t%n"
+  :value 'other)
+
 (defvar widget-string-prompt-value-history nil
   "History of input to `widget-string-prompt-value'.")