287 |
(set (make-local-variable 'eldoc-documentation-function) |
(set (make-local-variable 'eldoc-documentation-function) |
288 |
'hexl-print-current-point-info) |
'hexl-print-current-point-info) |
289 |
(eldoc-add-command-completions "hexl-") |
(eldoc-add-command-completions "hexl-") |
290 |
(eldoc-remove-command "hexl-save-buffer" |
(eldoc-remove-command "hexl-save-buffer" |
291 |
"hexl-current-address") |
"hexl-current-address") |
292 |
|
|
293 |
(if hexl-follow-ascii (hexl-follow-ascii 1))) |
(if hexl-follow-ascii (hexl-follow-ascii 1))) |
918 |
(defun hexl-activate-ruler () |
(defun hexl-activate-ruler () |
919 |
"Activate `ruler-mode'" |
"Activate `ruler-mode'" |
920 |
(require 'ruler-mode) |
(require 'ruler-mode) |
921 |
(set (make-local-variable 'ruler-mode-ruler-function) |
(set (make-local-variable 'ruler-mode-ruler-function) |
922 |
'hexl-mode-ruler) |
'hexl-mode-ruler) |
923 |
(ruler-mode 1)) |
(ruler-mode 1)) |
924 |
|
|
929 |
(with-no-warnings |
(with-no-warnings |
930 |
(set (make-local-variable 'hl-line-range-function) |
(set (make-local-variable 'hl-line-range-function) |
931 |
'hexl-highlight-line-range) |
'hexl-highlight-line-range) |
932 |
(set (make-local-variable 'hl-line-face) |
(set (make-local-variable 'hl-line-face) |
933 |
'highlight)) |
'highlight)) |
934 |
(hl-line-mode 1)) |
(hl-line-mode 1)) |
935 |
|
|
1009 |
(define-key hexl-mode-map "\C-e" 'hexl-end-of-line) |
(define-key hexl-mode-map "\C-e" 'hexl-end-of-line) |
1010 |
(define-key hexl-mode-map "\C-f" 'hexl-forward-char) |
(define-key hexl-mode-map "\C-f" 'hexl-forward-char) |
1011 |
|
|
1012 |
(if (not (eq (key-binding (char-to-string help-char)) 'help-command)) |
(if (not (memq (key-binding (char-to-string help-char)) |
1013 |
|
'(help-command ehelp-command))) |
1014 |
(define-key hexl-mode-map (char-to-string help-char) 'undefined)) |
(define-key hexl-mode-map (char-to-string help-char) 'undefined)) |
1015 |
|
|
1016 |
(define-key hexl-mode-map "\C-k" 'undefined) |
(define-key hexl-mode-map "\C-k" 'undefined) |