Mercurial > emacs
changeset 69077:f8759a14f4cd
(describe-key-briefly): Compute interactive args
in same was as before previous change.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Tue, 21 Feb 2006 19:51:37 +0000 |
| parents | c878e8baaab0 |
| children | fba8c045e2a0 |
| files | lisp/help.el |
| diffstat | 1 files changed, 2 insertions(+), 6 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/help.el Tue Feb 21 19:49:55 2006 +0000 +++ b/lisp/help.el Tue Feb 21 19:51:37 2006 +0000 @@ -579,12 +579,8 @@ (setq key (read-key-sequence "Describe key (or click or menu item): ")) (list key - (prefix-numeric-value current-prefix-arg) - ;; If KEY is a down-event, read the corresponding up-event - ;; and use it as the third argument. - (if (and (consp key) (symbolp (car key)) - (memq 'down (cdr (get (car key) 'event-symbol-elements)))) - (read-event)))) + (if current-prefix-arg (prefix-numeric-value current-prefix-arg)) + 1)) ;; Put yank-menu back as it was, if we changed it. (when saved-yank-menu (setq yank-menu (copy-sequence saved-yank-menu))