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
e38e7367
Commit
e38e7367
authored
Dec 09, 1992
by
Roland McGrath
Browse files
Options
Browse Files
Download
Email Patches
Plain Diff
(Info-{first,second,third,fourth,fifth}-menu-item): Removed.
(Info-nth-menu-item): New function; bound to 1..9.
parent
168e32e6
Changes
1
Hide whitespace changes
Inline
Side-by-side
Showing
1 changed file
with
17 additions
and
34 deletions
+17
-34
lisp/info.el
lisp/info.el
+17
-34
No files found.
lisp/info.el
View file @
e38e7367
;;; info.el --- info package for Emacs.
;; Copyright (C) 1985, 1986 Free Software Foundation, Inc.
;; Copyright (C) 1985, 1986
, 1992
Free Software Foundation, Inc.
;; Maintainer: FSF
;; Keywords: help
...
...
@@ -607,30 +607,13 @@ Completion is allowed, and the menu item point is on is the default."
nil
))
(
Info-extract-menu-node-name
)))
(
defun
Info-first-menu-item
()
"Go to the node of the first menu item."
(
defun
Info-nth-menu-item
()
"Go to the node of the Nth menu item.
N is the digit argument used to invoke this command."
(
interactive
)
(
Info-goto-node
(
Info-extract-menu-counting
1
)))
(
defun
Info-second-menu-item
()
"Go to the node of the second menu item."
(
interactive
)
(
Info-goto-node
(
Info-extract-menu-counting
2
)))
(
defun
Info-third-menu-item
()
"Go to the node of the third menu item."
(
interactive
)
(
Info-goto-node
(
Info-extract-menu-counting
3
)))
(
defun
Info-fourth-menu-item
()
"Go to the node of the fourth menu item."
(
interactive
)
(
Info-goto-node
(
Info-extract-menu-counting
4
)))
(
defun
Info-fifth-menu-item
()
"Go to the node of the fifth menu item."
(
interactive
)
(
Info-goto-node
(
Info-extract-menu-counting
5
)))
(
Info-goto-node
(
Info-extract-menu-counting
(
-
(
aref
(
this-command-keys
)
(
1-
(
length
(
this-command-keys
))))
?0
))))
(
defun
Info-top-node
()
"Go to the Top node of this file."
...
...
@@ -858,16 +841,16 @@ At end of the node's text, moves to the next node."
(
define-key
Info-mode-map
"."
'beginning-of-buffer
)
(
define-key
Info-mode-map
" "
'Info-scroll-up
)
(
define-key
Info-mode-map
"\C-m"
'Info-next-preorder
)
(
define-key
Info-mode-map
"1"
'Info-
first
-menu-item
)
(
define-key
Info-mode-map
"2"
'Info-
second
-menu-item
)
(
define-key
Info-mode-map
"3"
'Info-th
ird
-menu-item
)
(
define-key
Info-mode-map
"4"
'Info-
four
th-menu-item
)
(
define-key
Info-mode-map
"5"
'Info-
fif
th-menu-item
)
(
define-key
Info-mode-map
"6"
'
undefined
)
(
define-key
Info-mode-map
"7"
'
undefined
)
(
define-key
Info-mode-map
"8"
'
undefined
)
(
define-key
Info-mode-map
"9"
'
undefined
)
(
define-key
Info-mode-map
"0"
'
undefined
)
(
define-key
Info-mode-map
"1"
'Info-
nth
-menu-item
)
(
define-key
Info-mode-map
"2"
'Info-
nth
-menu-item
)
(
define-key
Info-mode-map
"3"
'Info-
n
th-menu-item
)
(
define-key
Info-mode-map
"4"
'Info-
n
th-menu-item
)
(
define-key
Info-mode-map
"5"
'Info-
n
th-menu-item
)
(
define-key
Info-mode-map
"6"
'
Info-nth-menu-item
)
(
define-key
Info-mode-map
"7"
'
Info-nth-menu-item
)
(
define-key
Info-mode-map
"8"
'
Info-nth-menu-item
)
(
define-key
Info-mode-map
"9"
'
Info-nth-menu-item
)
(
define-key
Info-mode-map
"0"
'
Info-nth-menu-item
)
(
define-key
Info-mode-map
"?"
'Info-summary
)
(
define-key
Info-mode-map
"]"
'Info-forward-node
)
(
define-key
Info-mode-map
"["
'Info-backward-node
)
...
...
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