[Emacs-diffs] Changes to emacs/lisp/hexl.el

[Juanma Barranquero]

Index: emacs/lisp/hexl.el
diff -c emacs/lisp/hexl.el:1.97 emacs/lisp/hexl.el:1.98
*** emacs/lisp/hexl.el:1.97     Mon Jul  4 23:08:54 2005
--- emacs/lisp/hexl.el  Fri Jul 15 10:50:45 2005
***************
*** 287,293 ****
      (set (make-local-variable 'eldoc-documentation-function)
         'hexl-print-current-point-info)
      (eldoc-add-command-completions "hexl-")
!     (eldoc-remove-command "hexl-save-buffer" 
                          "hexl-current-address")
  
      (if hexl-follow-ascii (hexl-follow-ascii 1)))
--- 287,293 ----
      (set (make-local-variable 'eldoc-documentation-function)
         'hexl-print-current-point-info)
      (eldoc-add-command-completions "hexl-")
!     (eldoc-remove-command "hexl-save-buffer"
                          "hexl-current-address")
  
      (if hexl-follow-ascii (hexl-follow-ascii 1)))
***************
*** 918,924 ****
  (defun hexl-activate-ruler ()
    "Activate `ruler-mode'"
    (require 'ruler-mode)
!   (set (make-local-variable 'ruler-mode-ruler-function) 
         'hexl-mode-ruler)
    (ruler-mode 1))
  
--- 918,924 ----
  (defun hexl-activate-ruler ()
    "Activate `ruler-mode'"
    (require 'ruler-mode)
!   (set (make-local-variable 'ruler-mode-ruler-function)
         'hexl-mode-ruler)
    (ruler-mode 1))
  
***************
*** 929,935 ****
    (with-no-warnings
      (set (make-local-variable 'hl-line-range-function)
         'hexl-highlight-line-range)
!     (set (make-local-variable 'hl-line-face) 
         'highlight))
    (hl-line-mode 1))
  
--- 929,935 ----
    (with-no-warnings
      (set (make-local-variable 'hl-line-range-function)
         'hexl-highlight-line-range)
!     (set (make-local-variable 'hl-line-face)
         'highlight))
    (hl-line-mode 1))
  
***************
*** 1009,1015 ****
    (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))
        (define-key hexl-mode-map (char-to-string help-char) 'undefined))
  
    (define-key hexl-mode-map "\C-k" 'undefined)
--- 1009,1016 ----
    (define-key hexl-mode-map "\C-e" 'hexl-end-of-line)
    (define-key hexl-mode-map "\C-f" 'hexl-forward-char)
  
!   (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)