From 625c15239818a61b05de92f055ae0ef40e5500d5 Mon Sep 17 00:00:00 2001 From: Juanma Barranquero Date: Fri, 15 Jul 2005 10:50:45 +0000 Subject: [PATCH] (hexl-mode-map): Recognize also `ehelp-command' as a valid binding for `help-char'. --- lisp/hexl.el | 9 +++++---- 1 file changed, 5 insertions(+), 4 deletions(-) diff --git a/lisp/hexl.el b/lisp/hexl.el index 894633a1f34..35423ec0335 100644 --- a/lisp/hexl.el +++ b/lisp/hexl.el @@ -287,7 +287,7 @@ You can use \\[hexl-find-file] to visit a file in Hexl mode. (set (make-local-variable 'eldoc-documentation-function) 'hexl-print-current-point-info) (eldoc-add-command-completions "hexl-") - (eldoc-remove-command "hexl-save-buffer" + (eldoc-remove-command "hexl-save-buffer" "hexl-current-address") (if hexl-follow-ascii (hexl-follow-ascii 1))) @@ -918,7 +918,7 @@ Customize the variable `hexl-follow-ascii' to disable this feature." (defun hexl-activate-ruler () "Activate `ruler-mode'" (require 'ruler-mode) - (set (make-local-variable 'ruler-mode-ruler-function) + (set (make-local-variable 'ruler-mode-ruler-function) 'hexl-mode-ruler) (ruler-mode 1)) @@ -929,7 +929,7 @@ Customize the variable `hexl-follow-ascii' to disable this feature." (with-no-warnings (set (make-local-variable 'hl-line-range-function) 'hexl-highlight-line-range) - (set (make-local-variable 'hl-line-face) + (set (make-local-variable 'hl-line-face) 'highlight)) (hl-line-mode 1)) @@ -1009,7 +1009,8 @@ This function is assumed to be used as call back function for `hl-line-mode'." (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 (char-to-string help-char)) 'help-command)) + (if (not (memq (key-binding (char-to-string help-char)) + '(help-command ehelp-command))) (define-key hexl-mode-map (char-to-string help-char) 'undefined)) (define-key hexl-mode-map "\C-k" 'undefined) -- 2.39.5