diff options
| author | Juanma Barranquero <lekktu@gmail.com> | 2006-03-07 09:53:30 +0000 |
|---|---|---|
| committer | Juanma Barranquero <lekktu@gmail.com> | 2006-03-07 09:53:30 +0000 |
| commit | a78914bca9f3049a92d566ec2921768af1f4acb5 (patch) | |
| tree | 9ddd57fe9c79932f2d925aa34341e7ca98ad0b6a /lisp/help.el | |
| parent | f35262f952977bf0837f0fd8d55522494a3fec94 (diff) | |
| download | emacs-a78914bca9f3049a92d566ec2921768af1f4acb5.tar.gz | |
(describe-key): Remove leftover test code.
Diffstat (limited to 'lisp/help.el')
| -rw-r--r-- | lisp/help.el | 2 |
1 files changed, 0 insertions, 2 deletions
diff --git a/lisp/help.el b/lisp/help.el index 7ee5ee52fea..7c84f44f6a0 100644 --- a/lisp/help.el +++ b/lisp/help.el @@ -653,7 +653,6 @@ temporarily enables it to allow getting help on disabled items and buttons." (setq saved-yank-menu (copy-sequence yank-menu)) (menu-bar-update-yank-menu "(any string)" nil)) (setq key (read-key-sequence "Describe key (or click or menu item): ")) - (setq foo key) (list key (prefix-numeric-value current-prefix-arg) @@ -706,7 +705,6 @@ temporarily enables it to allow getting help on disabled items and buttons." (prin1 defn) (princ "\n which is ") (describe-function-1 defn) - (setq foo up-event) (when up-event (let ((type (event-basic-type up-event)) (hdr "\n\n-------------- up event ---------------\n\n") |