From: raman <raman@google.com>
To: emacs-devel@gnu.org
Subject: widget type: command?
Date: Sun, 22 Feb 2015 08:31:15 -0800 [thread overview]
Message-ID: <p9161atdi24.fsf@google.com> (raw)
I was surprized to see that in the predefined widget types we dont
appear to have something for use to typecheck user input for
"interactive-command" -- we have 'function and 'symbol.
I added this to emacspeak -- but it might be nice to get it into
wid-edit with a suitable renaming.
(defun emacspeak-keymap-command-p (s)
"Check if `s' is suitable to be bound to a key."
(or (commandp s) (keymapp s)))
;;; rename to either 'command or 'interactive-command
(define-widget 'ems-interactive-command 'restricted-sexp
"An interactive command."
:completions
(apply-partially #'completion-table-with-predicate obarray 'emacspeak-keymap-command-p 'strict)
:prompt-value 'widget-field-prompt-value
:prompt-internal 'widget-symbol-prompt-internal
:prompt-match 'emacspeak-keymap-command-p
:prompt-history 'widget-function-prompt-value-history
:action 'widget-field-action
:match-alternatives '(emacspeak-keymap-command-p)
:validate (lambda (widget)
(unless (emacspeak-keymap-command-p (widget-value widget))
(widget-put widget :error (format "Invalid interactive command : %S"
(widget-value widget)))
widget))
:value 'ignore
:tag "Interactive Command")
reply other threads:[~2015-02-22 16:31 UTC|newest]
Thread overview: [no followups] expand[flat|nested] mbox.gz Atom feed
Reply instructions:
You may reply publicly to this message via plain-text email
using any one of the following methods:
* Save the following mbox file, import it into your mail client,
and reply-to-all from there: mbox
Avoid top-posting and favor interleaved quoting:
https://en.wikipedia.org/wiki/Posting_style#Interleaved_style
* Reply using the --to, --cc, and --in-reply-to
switches of git-send-email(1):
git send-email \
--in-reply-to=p9161atdi24.fsf@google.com \
--to=raman@google.com \
--cc=emacs-devel@gnu.org \
/path/to/YOUR_REPLY
https://kernel.org/pub/software/scm/git/docs/git-send-email.html
* If your mail client supports setting the In-Reply-To header
via mailto: links, try the mailto: link
Be sure your reply has a Subject: header at the top and a blank line
before the message body.
Code repositories for project(s) associated with this external index
https://git.savannah.gnu.org/cgit/emacs.git
https://git.savannah.gnu.org/cgit/emacs/org-mode.git
This is an external index of several public inboxes,
see mirroring instructions on how to clone and mirror
all data and code used by this external index.