Mercurial > hg > xemacs-beta

diff lisp/help.el @ 456:e7ef97881643 r21-2-43

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r21-2-43
author cvs
date Mon, 13 Aug 2007 11:41:24 +0200
parents 576fb035e263
children 0784d089fdc9
line wrap: on
line diff
--- a/lisp/help.el	Mon Aug 13 11:40:56 2007 +0200
+++ b/lisp/help.el	Mon Aug 13 11:41:24 2007 +0200
@@ -254,7 +254,7 @@
 
 ;; 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 @@
 	 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)))