X-Git-Url: http://git.chise.org/gitweb/?a=blobdiff_plain;f=lisp%2Fhelp.el;h=a337b13e35aa31ad99804d2baa7dd7ab3cf84de8;hb=6a2095599fd86997647f00a99d36d15364be7d9c;hp=b07aa176657f9f7513e527531a51bf1a84029d3d;hpb=98a6e4055a1fa624c592ac06f79287d55196ca37;p=chise%2Fxemacs-chise.git-

diff --git a/lisp/help.el b/lisp/help.el
index b07aa17..a337b13 100644
--- a/lisp/help.el
+++ b/lisp/help.el
@@ -254,7 +254,7 @@ otherwise it is killed."
 
 ;; This is a grody hack of the same genotype as `advertised-undo'; if the
 ;; bindings of Backspace and C-h are the same, we want the menubar to claim
-;; that `info' in invoked with `C-h i', not `BS i'.
+;; that `info' is invoked with `C-h i', not `BS i'.
 
 (defun deprecated-help-command ()
   (interactive)
@@ -1517,7 +1517,8 @@ If INSERT (the prefix arg) is non-nil, insert the message in the buffer."
 	 val)
      (setq val (read-command
 		(if fn (format "Where is command (default %s): " fn)
-		  "Where is command: ")))
+		  "Where is command: ")
+                (and fn (symbol-name fn))))
      (list (if (equal (symbol-name val) "")
 	       fn val)
 	   current-prefix-arg)))