From 89c0dda8521d9d988235cf50e4b4dae2df2956a1 Mon Sep 17 00:00:00 2001 From: Glenn Morris Date: Wed, 9 Jan 2013 16:23:14 -0500 Subject: execute-extended-command prompt fix (bug#13395) * lisp/simple.el (execute-extended-command): Doc fix. Bind prefix-arg around read-extended-command, for prompt. --- lisp/ChangeLog | 5 +++++ lisp/simple.el | 6 ++++-- 2 files changed, 9 insertions(+), 2 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 2df7452d5b4..1d3c92c4468 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,8 @@ +2013-01-09 Glenn Morris + + * simple.el (execute-extended-command): Doc fix. + Bind prefix-arg around read-extended-command, for prompt. (Bug#13395) + 2013-01-09 Chong Yidong * faces.el (read-face-name): Doc fix. diff --git a/lisp/simple.el b/lisp/simple.el index 05829bbdc65..57307baad8c 100644 --- a/lisp/simple.el +++ b/lisp/simple.el @@ -1391,14 +1391,16 @@ If the value is non-nil and not a number, we wait 2 seconds." ;; Aaron S. Hawley 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) -- cgit v1.2.3