Mercurial > emacs

comparison lisp/info.el @ 30220:e4628d420030

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(Info-mode-menu): Fix use of :help, :enable.
author Dave Love <fx@gnu.org>
date Fri, 14 Jul 2000 14:38:55 +0000
parents 310914da7811
children 237a66bc6cea
comparison
equal deleted inserted replaced
30219:87d8ca1f4b52 30220:e4628d420030
1917 "Non-nil if ITEM is present in this node." 1917 "Non-nil if ITEM is present in this node."
1918 (condition-case nil 1918 (condition-case nil
1919 (Info-extract-pointer item) 1919 (Info-extract-pointer item)
1920 (error nil))) 1920 (error nil)))
1921 1921
1922 (easy-menu-define Info-mode-menu Info-mode-map 1922 (easy-menu-define
1923 "Menu for info files." 1923 Info-mode-menu Info-mode-map
1924 '("Info" 1924 "Menu for info files."
1925 ["Up" Info-up (Info-check-pointer "up") 1925 '("Info"
1926 :help "Go up in the Info tree"] 1926 ["Up" Info-up :active (Info-check-pointer "up")
1927 ["Next" Info-next (Info-check-pointer "next") 1927 :help "Go up in the Info tree"]
1928 :help "Go to the next node"] 1928 ["Next" Info-next :active (Info-check-pointer "next")
1929 ["Previous" Info-prev (Info-check-pointer "prev[ious]*") 1929 :help "Go to the next node"]
1930 :help "Go to the previous node"] 1930 ["Previous" Info-prev :active (Info-check-pointer "prev[ious]*")
1931 ["Backward" Info-backward-node t 1931 :help "Go to the previous node"]
1932 :help "Go backward one node, considering all as a sequence"] 1932 ["Backward" Info-backward-node
1933 ["Forward" Info-forward-node t 1933 :help "Go backward one node, considering all as a sequence"]
1934 :help "Go forward one node, considering all as a sequence"] 1934 ["Forward" Info-forward-node
1935 ["Top" Info-top-node t 1935 :help "Go forward one node, considering all as a sequence"]
1936 :help "Go to top node of file"] 1936 ["Top" Info-top-node
1937 ["Final node" Info-final-node t 1937 :help "Go to top node of file"]
1938 :help "Go to final node in this file"] 1938 ["Final Node" Info-final-node
1939 ("Menu item" ["You should never see this" report-emacs-bug t]) 1939 :help "Go to final node in this file"]
1940 ("Reference" ["You should never see this" report-emacs-bug t]) 1940 ("Menu Item" ["You should never see this" report-emacs-bug t])
1941 ["Search..." Info-search t 1941 ("Reference" ["You should never see this" report-emacs-bug t])
1942 :help "Search for regular expression in this Info file"] 1942 ["Search..." Info-search
1943 ["Goto node..." Info-goto-node t 1943 :help "Search for regular expression in this Info file"]
1944 :help "Go to a named node]"] 1944 ["Goto Node..." Info-goto-node
1945 ["Last" Info-last Info-history 1945 :help "Go to a named node"]
1946 :help "Go to the last node you were at"] 1946 ["Last" Info-last Info-history
1947 ("Index..." 1947 :help "Go to the last node you were at"]
1948 ["Lookup a String" Info-index t 1948 ("Index..."
1949 :help "Look for a string in the index items"] 1949 ["Lookup a String" Info-index
1950 ["Next Matching Item" Info-index-next t 1950 :help "Look for a string in the index items"]
1951 :help "Look for another occurrence of previous item"]) 1951 ["Next Matching Item" Info-index-next
1952 ["Exit" Info-exit t])) 1952 :help "Look for another occurrence of previous item"])
1953 ["Exit" Info-exit t]))
1953 1954
1954 (defvar Info-menu-last-node nil) 1955 (defvar Info-menu-last-node nil)
1955 ;; Last node the menu was created for. 1956 ;; Last node the menu was created for.
1956 ;; Value is a list, (FILE-NAME NODE-NAME). 1957 ;; Value is a list, (FILE-NAME NODE-NAME).
1957 1958
1980 entries))) 1981 entries)))
1981 (if items 1982 (if items
1982 (setq entries (cons ["Other..." Info-menu t] entries))) 1983 (setq entries (cons ["Other..." Info-menu t] entries)))
1983 (or entries 1984 (or entries
1984 (setq entries (list ["No menu" nil nil]))) 1985 (setq entries (list ["No menu" nil nil])))
1985 (easy-menu-change '("Info") "Menu item" (nreverse entries))) 1986 (easy-menu-change '("Info") "Menu Item" (nreverse entries)))
1986 ;; Update reference menu. Code stolen from `Info-follow-reference'. 1987 ;; Update reference menu. Code stolen from `Info-follow-reference'.
1987 (let ((items nil) 1988 (let ((items nil)
1988 str i entries current 1989 str i entries current
1989 (number 0) 1990 (number 0)
1990 (case-fold-search t)) 1991 (case-fold-search t))