/[emacs]/emacs/lisp/hexl.el
ViewVC logotype

Diff of /emacs/lisp/hexl.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.97 by lute, Mon Jul 4 23:08:54 2005 UTC revision 1.98 by lektu, Fri Jul 15 10:50:45 2005 UTC
# Line 287  You can use \\[hexl-find-file] to visit Line 287  You can use \\[hexl-find-file] to visit
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)))
# Line 918  Customize the variable `hexl-follow-asci Line 918  Customize the variable `hexl-follow-asci
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    
# Line 929  Customize the variable `hexl-follow-asci Line 929  Customize the variable `hexl-follow-asci
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    
# Line 1009  This function is assumed to be used as c Line 1009  This function is assumed to be used as c
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)

Legend:
Removed from v.1.97  
changed lines
  Added in v.1.98

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26