Mercurial > emacs
diff lisp/hexl.el @ 90203:187d6a1f84f7
Revision: miles@gnu.org--gnu-2005/emacs--unicode--0--patch-71
Merge from emacs--cvs-trunk--0
Patches applied:
* emacs--cvs-trunk--0 (patch 485-492)
- Update from CVS
- Merge from gnus--rel--5.10
* gnus--rel--5.10 (patch 92-94)
- Merge from emacs--cvs-trunk--0
- Update from CVS
author | Miles Bader <miles@gnu.org> |
---|---|
date | Fri, 22 Jul 2005 08:27:27 +0000 |
parents | f9a65d7ebd29 a8184636c021 |
children | 2d92f5c9d6ae |
line wrap: on
line diff
--- a/lisp/hexl.el Tue Jul 19 02:58:20 2005 +0000 +++ b/lisp/hexl.el Fri Jul 22 08:27:27 2005 +0000 @@ -287,7 +287,7 @@ (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 @@ (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 @@ (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 @@ (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)