changeset 69317:994dc3ecfd18

(describe-key): Remove leftover test code.
author Juanma Barranquero <lekktu@gmail.com>
date Tue, 07 Mar 2006 09:53:30 +0000
parents 57e535bee31c
children 05d354109b2c
files lisp/help.el
diffstat 1 files changed, 0 insertions(+), 2 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/help.el	Tue Mar 07 06:41:45 2006 +0000
+++ b/lisp/help.el	Tue Mar 07 09:53:30 2006 +0000
@@ -653,7 +653,6 @@
 	     (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 @@
 	    (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")