[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] /srv/bzr/emacs/emacs-24 r111160: execute-extended-command
From: |
Glenn Morris |
Subject: |
[Emacs-diffs] /srv/bzr/emacs/emacs-24 r111160: execute-extended-command prompt fix (bug#13395) |
Date: |
Wed, 09 Jan 2013 16:23:14 -0500 |
User-agent: |
Bazaar (2.5.0) |
------------------------------------------------------------
revno: 111160
committer: Glenn Morris <address@hidden>
branch nick: emacs-24
timestamp: Wed 2013-01-09 16:23:14 -0500
message:
execute-extended-command prompt fix (bug#13395)
* lisp/simple.el (execute-extended-command): Doc fix.
Bind prefix-arg around read-extended-command, for prompt.
modified:
lisp/ChangeLog
lisp/simple.el
=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog 2013-01-09 09:43:38 +0000
+++ b/lisp/ChangeLog 2013-01-09 21:23:14 +0000
@@ -1,3 +1,8 @@
+2013-01-09 Glenn Morris <address@hidden>
+
+ * simple.el (execute-extended-command): Doc fix.
+ Bind prefix-arg around read-extended-command, for prompt. (Bug#13395)
+
2013-01-09 Chong Yidong <address@hidden>
* faces.el (read-face-name): Doc fix.
=== modified file 'lisp/simple.el'
--- a/lisp/simple.el 2013-01-01 09:11:05 +0000
+++ b/lisp/simple.el 2013-01-09 21:23:14 +0000
@@ -1391,14 +1391,16 @@
;; 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)
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] /srv/bzr/emacs/emacs-24 r111160: execute-extended-command prompt fix (bug#13395),
Glenn Morris <=