(Info-menu-update): Set Info-menu-last-node

to (FILE NODENAME), and test it that way too.

diff --git a/lisp/info.el b/lisp/info.el
index a50b0c091126c9f8bef99b12ddaf0c6e77852541..a7c395ef2b8c519f0a4689ba28df8737c4b7d735 100644 (file)
--- a/lisp/info.el
+++ b/lisp/info.el
@@ -1685,12 +1685,14 @@ If no reference to follow, moves to the next node, or up if none."
 
 (defvar Info-menu-last-node nil)
 ;; Last node the menu was created for.
+;; Value is a list, (FILE-NAME NODE-NAME).
 
 (defun Info-menu-update ()
   ;; Update the Info menu for the current node.
   (condition-case nil
       (if (or (not (eq major-mode 'Info-mode))
-             (eq Info-current-node Info-menu-last-node))
+             (equal (list Info-current-file Info-current-node)
+                    Info-menu-last-node))
          ()
        ;; Update menu menu.
        (let* ((Info-complete-menu-buffer (current-buffer))
@@ -1745,7 +1747,7 @@ If no reference to follow, moves to the next node, or up if none."
              (setq entries (list ["No references" nil nil])))
          (easy-menu-change '("Info") "Reference" (nreverse entries)))
        ;; Update last seen node.
-       (setq Info-menu-last-node (current-buffer)))
+       (setq Info-menu-last-node (list Info-current-file Info-current-node)))
     ;; Try to avoid entering infinite beep mode in case of errors.
     (error (ding))))