# HG changeset patch
# User Juanma Barranquero <lekktu@gmail.com>
# Date 1141725210 0
# Node ID 994dc3ecfd185a5eb01142cae18e76f18025ce97
# Parent  57e535bee31cf40bebd3a5f6d4ad9aff3e2af3df
(describe-key): Remove leftover test code.

diff -r 57e535bee31c -r 994dc3ecfd18 lisp/help.el
--- 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")