Mercurial > emacs

changeset 21197:e4b99d1db55a

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(Info-menu-update): Set Info-menu-last-node to (FILE NODENAME), and test it that way too.
author Richard M. Stallman <rms@gnu.org>
date Tue, 17 Mar 1998 06:29:50 +0000
parents 0ad514a44245
children 10518dc95b25
files lisp/info.el
diffstat 1 files changed, 4 insertions(+), 2 deletions(-) [+]
line wrap: on
line diff
--- 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))))