[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/lisp/hexl.el
From: |
Juanma Barranquero |
Subject: |
[Emacs-diffs] Changes to emacs/lisp/hexl.el |
Date: |
Fri, 15 Jul 2005 06:50:46 -0400 |
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)