From 6d2c8e3eb7baecca2fccdf8178985d33484cd4d5 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Tue, 17 Mar 1998 06:29:50 +0000 Subject: (Info-menu-update): Set Info-menu-last-node to (FILE NODENAME), and test it that way too. --- lisp/info.el | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) (limited to 'lisp') diff --git a/lisp/info.el b/lisp/info.el index a50b0c0911..a7c395ef2b 100644 --- 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)))) -- cgit v1.2.3