mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-22 07:09:54 +00:00
Code Issues Releases Activity

*** empty log message ***

Browse Source
This commit is contained in:
Eric S. Raymond 1992-08-03 21:32:21 +00:00
parent cd5e3fae77
commit 573cd92439
2 changed files with 6 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
lisp/ebuff-menu.el
View File

@ -226,7 +226,7 @@ Does not execute select, save, or delete commands."
(eq (key-binding " ") 'Electric-buffer-menu-select)
(eq (key-binding help-key) 'Helper-help)
(eq (key-binding "?") 'Helper-describe-bindings))
"Type C-c C-c to exit, Space to select, C-h for help, ? for commands"
(substitute-command-keys "Type C-c C-c to exit, Space to select, \\[Helper-help] for help, ? for commands")
(substitute-command-keys "\
Type \\[Electric-buffer-menu-quit] to exit, \
\\[Electric-buffer-menu-select] to select, \

7
lisp/hexl.el
View File

@ -67,6 +67,9 @@ and \"-de\" when dehexlfying a buffer.")
(defvar hexl-max-address 0
"Maximum offset into hexl buffer.")
(defvar help-key "\C-h"
"*Key used to invoke electric help.")
(defvar hexl-mode-map nil)
;; routines
@ -586,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 "\C-h") 'help-command))
(define-key hexl-mode-map "\C-h" 'undefined))
(if (not (eq (key-binding help-key) 'help-command))
(define-key hexl-mode-map help-key 'undefined))
(define-key hexl-mode-map "\C-i" 'hexl-self-insert-command)
(define-key hexl-mode-map "\C-j" 'hexl-self-insert-command)