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
c3aef019
Commit
c3aef019
authored
Aug 03, 1992
by
Eric S. Raymond
Browse files
*** empty log message ***
parent
573cd924
Changes
4
Hide whitespace changes
Inline
Side-by-side
Showing
4 changed files
with
11 additions
and
11 deletions
+11
-11
lisp/dired-aux.el
lisp/dired-aux.el
+1
-1
lisp/ebuff-menu.el
lisp/ebuff-menu.el
+1
-4
lisp/help.el
lisp/help.el
+7
-4
lisp/hexl.el
lisp/hexl.el
+2
-2
No files found.
lisp/dired-aux.el
View file @
c3aef019
...
...
@@ -539,7 +539,7 @@ and use this command with a prefix argument (the value does not matter)."
;; Query user and return nil or t.
;; Store answer in symbol VAR (which must initially be bound to nil).
;; Format PROMPT with ARGS.
;; Binding variable help-form will help the user who types
C-h
.
;; Binding variable help-form will help the user who types
the help key
.
(
let*
((
char
(
symbol-value
qs-var
))
(
action
(
cdr
(
assoc
char
dired-query-alist
))))
(
cond
((
eq
'yes
action
)
...
...
lisp/ebuff-menu.el
View file @
c3aef019
...
...
@@ -29,9 +29,6 @@
(
require
'electric
)
(
defvar
help-key
"\C-h"
"*Key used to invoke electric help."
)
;; this depends on the format of list-buffers (from src/buffer.c) and
;; on stuff in lisp/buff-menu.el
...
...
@@ -159,7 +156,7 @@ electric-buffer-menu-mode-hook if it is non-nil."
(
fillarray
(
lookup-key
map
"\e"
)
'Electric-buffer-menu-undefined
)
(
define-key
map
"\C-z"
'suspend-emacs
)
(
define-key
map
"v"
'Electric-buffer-menu-mode-view-buffer
)
(
define-key
map
help-
key
'Helper-help
)
(
define-key
map
help-
char
'Helper-help
)
(
define-key
map
"?"
'Helper-describe-bindings
)
(
define-key
map
"\C-c"
nil
)
(
define-key
map
"\C-c\C-c"
'Electric-buffer-menu-quit
)
...
...
lisp/help.el
View file @
c3aef019
...
...
@@ -26,10 +26,13 @@
(
defvar
help-map
(
make-sparse-keymap
)
"Keymap for characters following the Help key."
)
(
define-key
global-map
"\C-h"
'help-command
)
(
defvar
help-key
"\C-h"
"*Key used to invoke electric help."
)
(
define-key
global-map
help-key
'help-command
)
(
fset
'help-command
help-map
)
(
define-key
help-map
"\C-h"
'help-for-help
)
(
define-key
help-map
help-key
'help-for-help
)
(
define-key
help-map
"?"
'help-for-help
)
(
define-key
help-map
"\C-c"
'describe-copying
)
...
...
@@ -200,7 +203,7 @@ describes the minor mode."
(
print-help-return-message
)))
(
defun
help-for-help
()
"You have typed
C-h
, the help character. Type a Help option:
"You have typed
\\[help-for-help]
, the help character. Type a Help option:
A command-apropos. Give a substring, and see a list of commands
(functions interactively callable) that contain
...
...
@@ -228,7 +231,7 @@ C-n print news of recent Emacs changes.
C-w print information on absence of warranty for GNU Emacs."
(
interactive
)
(
message
"A B C F I K L M N S T V W C-c C-d C-n C-w. Type
C-h
again for more help: "
)
"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: "
)
(
let
((
char
(
read-char
)))
(
if
(
or
(
=
char
?\C-h
)
(
=
char
??
))
(
save-window-excursion
...
...
lisp/hexl.el
View file @
c3aef019
...
...
@@ -589,8 +589,8 @@ You may also type up to 3 octal digits, to insert a character with that code"
(
define-key
hexl-mode-map
"\C-e"
'hexl-end-of-line
)
(
define-key
hexl-mode-map
"\C-f"
'hexl-forward-char
)
(
if
(
not
(
eq
(
key-binding
help-
key
)
'help-command
))
(
define-key
hexl-mode-map
help-
key
'undefined
))
(
if
(
not
(
eq
(
key-binding
help-
char
)
'help-command
))
(
define-key
hexl-mode-map
help-
char
'undefined
))
(
define-key
hexl-mode-map
"\C-i"
'hexl-self-insert-command
)
(
define-key
hexl-mode-map
"\C-j"
'hexl-self-insert-command
)
...
...
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