Skip to content
GitLab
Projects
Groups
Snippets
Help
Loading...
Help
What's new
7
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Open sidebar
emacs
emacs
Commits
48e5b471
Commit
48e5b471
authored
Apr 12, 2000
by
Dave Love
Browse files
Options
Browse Files
Download
Email Patches
Plain Diff
Add debug-ignored-errors.
(Info-mode-menu): Add some items. (Info-directory): Add autoload cookie.
parent
506c6d61
Changes
1
Hide whitespace changes
Inline
Side-by-side
Showing
1 changed file
with
32 additions
and
6 deletions
+32
-6
lisp/info.el
lisp/info.el
+32
-6
No files found.
lisp/info.el
View file @
48e5b471
...
...
@@ -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
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment