diff options
| author | Richard M. Stallman | 2006-02-21 19:51:37 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 2006-02-21 19:51:37 +0000 |
| commit | 774a814f60738f2ca6ae40a7209080df2794b379 (patch) | |
| tree | ad091091bacc21157c432f284f89daf78dd89137 | |
| parent | a251756ea63240a3777936ceee15f941a025d11e (diff) | |
| download | emacs-774a814f60738f2ca6ae40a7209080df2794b379.tar.gz emacs-774a814f60738f2ca6ae40a7209080df2794b379.zip | |
(describe-key-briefly): Compute interactive args
in same was as before previous change.
| -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." | |||
| 579 | (setq key (read-key-sequence "Describe key (or click or menu item): ")) | 579 | (setq key (read-key-sequence "Describe key (or click or menu item): ")) |
| 580 | (list | 580 | (list |
| 581 | key | 581 | key |
| 582 | (prefix-numeric-value current-prefix-arg) | 582 | (if current-prefix-arg (prefix-numeric-value current-prefix-arg)) |
| 583 | ;; If KEY is a down-event, read the corresponding up-event | 583 | 1)) |
| 584 | ;; and use it as the third argument. | ||
| 585 | (if (and (consp key) (symbolp (car key)) | ||
| 586 | (memq 'down (cdr (get (car key) 'event-symbol-elements)))) | ||
| 587 | (read-event)))) | ||
| 588 | ;; Put yank-menu back as it was, if we changed it. | 584 | ;; Put yank-menu back as it was, if we changed it. |
| 589 | (when saved-yank-menu | 585 | (when saved-yank-menu |
| 590 | (setq yank-menu (copy-sequence saved-yank-menu)) | 586 | (setq yank-menu (copy-sequence saved-yank-menu)) |