Mercurial > emacs
comparison lisp/wid-edit.el @ 22421:b23a720f3b4f
(other): New widget type.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Wed, 10 Jun 1998 04:19:36 +0000 |
| parents | 79a3c4eba19f |
| children | 1eba71735142 |
comparison
equal
deleted
inserted
replaced
| 22420:cb77a5a6a629 | 22421:b23a720f3b4f |
|---|---|
| 2907 (define-widget 'variable-item 'const | 2907 (define-widget 'variable-item 'const |
| 2908 "An immutable variable name." | 2908 "An immutable variable name." |
| 2909 :format "%v\n%h" | 2909 :format "%v\n%h" |
| 2910 :documentation-property 'variable-documentation) | 2910 :documentation-property 'variable-documentation) |
| 2911 | 2911 |
| 2912 (define-widget 'other 'sexp | |
| 2913 "Matches any value, but doesn't let the user edit the value. | |
| 2914 This is useful as last item in a `choice' widget. | |
| 2915 You should use this widget type with a default value, | |
| 2916 as in (other DEFAULT) or (other :tag "NAME" DEFAULT). | |
| 2917 If the user selects this alternative, that specifies DEFAULT | |
| 2918 as the value." | |
| 2919 :tag "Other" | |
| 2920 :format "%t%n" | |
| 2921 :value 'other) | |
| 2922 | |
| 2912 (defvar widget-string-prompt-value-history nil | 2923 (defvar widget-string-prompt-value-history nil |
| 2913 "History of input to `widget-string-prompt-value'.") | 2924 "History of input to `widget-string-prompt-value'.") |
| 2914 | 2925 |
| 2915 (define-widget 'string 'editable-field | 2926 (define-widget 'string 'editable-field |
| 2916 "A string" | 2927 "A string" |