X-Git-Url: https://git.hcoop.net/bpt/emacs.git/blobdiff_plain/88ef7f629b6416fa77b0687c5adf1073aed69167..3d30065dc2a536cc7d7ef0d880112bea03ebf958:/lisp/info.el

diff --git a/lisp/info.el b/lisp/info.el
index 851726bee8..10e52e2e02 100644
--- a/lisp/info.el
+++ b/lisp/info.el
@@ -1,6 +1,6 @@
 ;;; info.el --- info package for Emacs.
 
-;; Copyright (C) 1985, 86, 92, 93, 94, 95, 96, 97, 98, 99 Free Software
+;; Copyright (C) 1985, 86, 92, 93, 94, 95, 96, 97, 98, 99, 2000 Free Software
 ;; Foundation, Inc.
 
 ;; Maintainer: FSF
@@ -1136,6 +1136,7 @@ If SAME-FILE is non-nil, do not move to a different Info file."
     (setq Info-history (cdr Info-history))
     (goto-char opoint)))
 
+;;;###autoload
 (defun Info-directory ()
   "Go to the Info directory node."
   (interactive)
@@ -1893,14 +1894,33 @@ If no reference to follow, moves to the next node, or up if none."
 (easy-menu-define Info-mode-menu Info-mode-map
   "Menu for info files."
   '("Info"
-    ["Up" Info-up (Info-check-pointer "up")]
-    ["Next" Info-next (Info-check-pointer "next")]
-    ["Previous" Info-prev (Info-check-pointer "prev[ious]*")]
+    ["Up" Info-up (Info-check-pointer "up")
+     :help "Go up in the Info tree"]
+    ["Next" Info-next (Info-check-pointer "next")
+     :help "Go to the next node"]
+    ["Previous" Info-prev (Info-check-pointer "prev[ious]*")
+     :help "Go to the previous node"]
+    ["Backward" Info-backward-node t
+     :help "Go backward one node, considering all as a sequence"]
+    ["Forward" Info-forward-node t
+     :help "Go forward one node, considering all as a sequence"]
+    ["Top" Info-top-node t
+     :help "Go to top node of file"]
+    ["Final node" Info-final-node t
+     :help "Go to final node in this file"]
     ("Menu item" ["You should never see this" report-emacs-bug t])
     ("Reference" ["You should never see this" report-emacs-bug t])
-    ["Search..." Info-search t]
-    ["Goto node..." Info-goto-node t]
-    ["Last" Info-last Info-history]
+    ["Search..." Info-search t
+     :help "Search for regular expression in this Info file"]
+    ["Goto node..." Info-goto-node t
+     :help "Go to a named node]"]
+    ["Last" Info-last Info-history
+     :help "Go to the last node you were at"]
+    ("Index..."
+     ["Lookup a String" Info-index t
+      :help "Look for a string in the index items"]
+     ["Next Matching Item" Info-index-next t
+      :help "Look for another occurrence of previous item"])
     ["Exit" Info-exit t]))
 
 (defvar Info-menu-last-node nil)
@@ -2497,6 +2517,12 @@ BUFFER is the buffer speedbar is requesting buttons for."
   (Info-speedbar-hierarchy-buttons nil 0)
   )
 
+(dolist (mess '("^Node has no Previous$"
+		"^No menu in this node$"
+		"^Node has no Next$"
+		"^No \".*\" in index$"))
+  (add-to-list 'debug-ignored-errors mess))
+
 (provide 'info)
 
 ;;; info.el ends here