Skip to content
GitLab
Projects
Groups
Snippets
Help
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Open sidebar
emacs
emacs
Commits
06b98c51
Commit
06b98c51
authored
Mar 11, 1993
by
Eric S. Raymond
Browse files
Added autoload, binding and menu line for new finder feature (P).
parent
06ddfb24
Changes
1
Hide whitespace changes
Inline
Side-by-side
Showing
1 changed file
with
6 additions
and
2 deletions
+6
-2
lisp/help.el
lisp/help.el
+6
-2
No files found.
lisp/help.el
View file @
06b98c51
...
...
@@ -56,6 +56,9 @@
(
define-key
help-map
"\C-n"
'view-emacs-news
)
(
define-key
help-map
"n"
'view-emacs-news
)
(
define-key
help-map
"p"
'finder-by-keyword
)
(
autoload
'finder-by-keyword
"finder.el"
)
(
define-key
help-map
"s"
'describe-syntax
)
(
define-key
help-map
"t"
'help-with-tutorial
)
...
...
@@ -216,6 +219,7 @@ L view-lossage. Shows last 100 characters you typed.
M describe-mode. Print documentation of current major mode,
which describes the commands peculiar to it.
N view-emacs-news. Shows emacs news file.
P finder-by-keyword. Find packages matching a given topic keyword.
S describe-syntax. Display contents of syntax table, plus explanations
T help-with-tutorial. Select the Emacs learn-by-doing tutorial.
V describe-variable. Type name of a variable;
...
...
@@ -228,7 +232,7 @@ C-n print news of recent Emacs changes.
C-w print information on absence of warranty for GNU Emacs."
(
interactive
)
(
message
(
substitute-command-keys
"A B C F I K L M N S T V W C-c C-d C-n C-w. Type \\[help-for-help] again for more help: "
))
"A B C F I K L M N
P
S T V W C-c C-d C-n C-w. Type \\[help-for-help] again for more help: "
))
(
let
((
char
(
read-char
)))
(
if
(
or
(
=
char
help-char
)
(
=
char
??
))
(
save-window-excursion
...
...
@@ -242,7 +246,7 @@ C-w print information on absence of warranty for GNU Emacs."
(
scroll-up
))
(
if
(
memq
char
'
(
?\177
?\M-v
))
(
scroll-down
))
(
message
"A B C F I K L M N S T V W C-c C-d C-n C-w%s: "
(
message
"A B C F I K L M N
P
S T V W C-c C-d C-n C-w%s: "
(
if
(
pos-visible-in-window-p
(
point-max
))
""
" or Space to scroll"
))
(
let
((
cursor-in-echo-area
t
))
...
...
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