execute-extended-command prompt fix (bug#13395)
* lisp/simple.el (execute-extended-command): Doc fix. Bind prefix-arg around read-extended-command, for prompt.
This commit is contained in:
parent
f55c06038d
commit
89c0dda852
2 changed files with 9 additions and 2 deletions
|
@ -1,3 +1,8 @@
|
|||
2013-01-09 Glenn Morris <rgm@gnu.org>
|
||||
|
||||
* simple.el (execute-extended-command): Doc fix.
|
||||
Bind prefix-arg around read-extended-command, for prompt. (Bug#13395)
|
||||
|
||||
2013-01-09 Chong Yidong <cyd@gnu.org>
|
||||
|
||||
* faces.el (read-face-name): Doc fix.
|
||||
|
|
|
@ -1391,14 +1391,16 @@ If the value is non-nil and not a number, we wait 2 seconds."
|
|||
;; Aaron S. Hawley <aaron.s.hawley(at)gmail.com> 2009-08-24
|
||||
"Read function name, then read its arguments and call it.
|
||||
|
||||
To pass a numeric argument to the command you are invoking with, specify
|
||||
To pass a numeric argument to the command you are invoking, specify
|
||||
the numeric argument to this command.
|
||||
|
||||
Noninteractively, the argument PREFIXARG is the prefix argument to
|
||||
give to the command you invoke, if it asks for an argument."
|
||||
(interactive (list current-prefix-arg (read-extended-command)))
|
||||
;; Emacs<24 calling-convention was with a single `prefixarg' argument.
|
||||
(if (null command-name) (setq command-name (read-extended-command)))
|
||||
(if (null command-name)
|
||||
(setq command-name (let ((current-prefix-arg prefixarg)) ; for prompt
|
||||
(read-extended-command))))
|
||||
(let* ((function (and (stringp command-name) (intern-soft command-name)))
|
||||
(binding (and suggest-key-bindings
|
||||
(not executing-kbd-macro)
|
||||
|
|
Loading…
Add table
Reference in a new issue