mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-01-30 12:21:25 -08:00
Code Issues Projects Releases Wiki Activity

(key-sequence): New widget type.

Browse source
This commit is contained in:
Richard M. Stallman 2005-11-03 21:46:16 +00:00
parent f6b8e4e7b6
commit 987cee9728
1 changed files with 24 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

25
lisp/wid-edit.el
View file

@ -3116,7 +3116,7 @@ It will read a directory name from the minibuffer when invoked."
(interactive)
(lisp-complete-symbol 'boundp))
:tag "Variable")
(defvar widget-coding-system-prompt-value-history nil
"History of input to `widget-coding-system-prompt-value'.")
@ -3159,6 +3159,29 @@ It will read a directory name from the minibuffer when invoked."
(widget-apply widget :notify widget event)
(widget-setup)))
(defvar widget-key-sequence-prompt-value-history nil
"History of input to `widget-key-sequence-prompt-value'.")
;; This mostly works, but I am pretty sure it needs more change
;; to be 100% correct. I don't know what the change should be -- rms.
(define-widget 'key-sequence 'restricted-sexp
"A Lisp function."
:prompt-value 'widget-field-prompt-value
:prompt-internal 'widget-symbol-prompt-internal
:prompt-match 'fboundp
:prompt-history 'widget-key-sequence-prompt-value-history
:action 'widget-field-action
:match-alternatives '(stringp vectorp)
:validate (lambda (widget)
(unless (or (stringp (widget-value widget))
(vectorp (widget-value widget)))
(widget-put widget :error (format "Invalid key sequence: %S"
(widget-value widget)))
widget))
:value 'ignore
:tag "Key sequence")
(define-widget 'sexp 'editable-field
"An arbitrary Lisp expression."
:tag "Lisp expression"