Contents in 1999-06-04-13 of release-21-2.

[chise/xemacs-chise.git.1] / lisp / info.el

diff --git a/lisp/info.el b/lisp/info.el
index dc40409..6d4e22f 100644 (file)
--- a/lisp/info.el
+++ b/lisp/info.el
@@ -2074,9 +2074,9 @@ A positive or negative prefix argument moves by multiple screenfuls."
               (not (eq Info-auto-advance t))
               (not (eq last-command this-command)))
          (message "Hit %s again to go to previous node"
               (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"
                       "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)))
        (Info-page-prev)
        (setq this-command 'Info))
     (scroll-down arg)))