diff options
author | Richard M. Stallman <rms@gnu.org> | 2006-02-21 19:51:37 +0000 |
---|---|---|
committer | Richard M. Stallman <rms@gnu.org> | 2006-02-21 19:51:37 +0000 |
commit | 774a814f60738f2ca6ae40a7209080df2794b379 (patch) | |
tree | ad091091bacc21157c432f284f89daf78dd89137 /lisp/help.el | |
parent | a251756ea63240a3777936ceee15f941a025d11e (diff) | |
download | emacs-774a814f60738f2ca6ae40a7209080df2794b379.tar.gz |
(describe-key-briefly): Compute interactive args
in same was as before previous change.
Diffstat (limited to 'lisp/help.el')
-rw-r--r-- | lisp/help.el | 8 |
1 files changed, 2 insertions, 6 deletions
diff --git a/lisp/help.el b/lisp/help.el index 02045948ecb..f74293b8dd6 100644 --- a/lisp/help.el +++ b/lisp/help.el @@ -579,12 +579,8 @@ temporarily enables it to allow getting help on disabled items and buttons." (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)) |