(Info-menu-update): When there are no menus and/or no

cross references in the node, make the respective items of the
Info menu-bar menu inactive.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 81a58d9000d1c30ea2ce6091c11ea0f255e57627..1d50730dd86a3cd5eb71497f87108b9e07c28d56 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,9 @@
+2001-04-17  Eli Zaretskii  <eliz@is.elta.co.il>
+
+       * info.el (Info-menu-update): When there are no menus and/or no
+       cross references in the node, make the respective items of the
+       Info menu-bar menu inactive.
+
 2001-04-17  Gerd Moellmann  <gerd@gnu.org>
 
        * indent.el (indent-for-tab-command): Call indent-line-function

diff --git a/lisp/info.el b/lisp/info.el
index d3d21468a6af93a87686c8512a195c7cc5ccbeae..53704ef6fc4004e20ce90487e92c90918a268644 100644 (file)
--- a/lisp/info.el
+++ b/lisp/info.el
@@ -2166,7 +2166,7 @@ If no reference to follow, moves to the next node, or up if none."
          (if items
              (setq entries (cons ["Other..." Info-menu t] entries)))
          (or entries
-             (setq entries (list ["No menu" nil nil])))
+             (setq entries (list ["No menu" nil nil] nil :active)))
          (easy-menu-change '("Info") "Menu Item" (nreverse entries)))
        ;; Update reference menu.  Code stolen from `Info-follow-reference'.
        (let ((items nil)
@@ -2198,7 +2198,7 @@ If no reference to follow, moves to the next node, or up if none."
              (setq entries (cons ["Other..." Info-follow-reference t]
                                  entries)))
          (or entries
-             (setq entries (list ["No references" nil nil])))
+             (setq entries (list ["No references" nil nil] nil :active)))
          (easy-menu-change '("Info") "Reference" (nreverse entries)))
        ;; Update last seen node.
        (setq Info-menu-last-node (list Info-current-file Info-current-node)))