Mercurial > hg > xemacs-beta

diff lisp/info.el @ 347:7c94d56991e1 r21-1-3

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r21-1-3
author cvs
date Mon, 13 Aug 2007 10:53:48 +0200
parents 54f7aa390f4f
children 4711e16a8e49
line wrap: on
line diff
--- a/lisp/info.el	Mon Aug 13 10:53:20 2007 +0200
+++ b/lisp/info.el	Mon Aug 13 10:53:48 2007 +0200
@@ -2069,9 +2069,9 @@
 	       (not (eq Info-auto-advance t))
 	       (not (eq last-command this-command)))
 	  (message "Hit %s again to go to previous node"
-		   (if (= last-command-char 0)
+		   (if (mouse-event-p last-command-event)
 		       "mouse button"
-		     (key-description (char-to-string last-command-char))))
+		     (key-description (event-key last-command-event))))
 	(Info-page-prev)
 	(setq this-command 'Info))
     (scroll-down arg)))