changeset 37370:3a3bed48a714

(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.
author Eli Zaretskii <eliz@gnu.org>
date Tue, 17 Apr 2001 20:28:29 +0000
parents 3a46eb992548
children 855c7db27c94
files lisp/info.el
diffstat 1 files changed, 2 insertions(+), 2 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/info.el	Tue Apr 17 17:45:48 2001 +0000
+++ b/lisp/info.el	Tue Apr 17 20:28:29 2001 +0000
@@ -2166,7 +2166,7 @@
 	  (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 @@
 	      (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)))