# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 890116190 0
# Node ID e4b99d1db55a845380de401a673d55fb20437fc1
# Parent  0ad514a442456dfa6f02dbc9502ab9f837249325
(Info-menu-update): Set Info-menu-last-node
to (FILE NODENAME), and test it that way too.

diff -r 0ad514a44245 -r e4b99d1db55a lisp/info.el
--- a/lisp/info.el	Tue Mar 17 05:49:29 1998 +0000
+++ b/lisp/info.el	Tue Mar 17 06:29:50 1998 +0000
@@ -1685,12 +1685,14 @@
 
 (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 @@
 	      (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))))