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

[Masatake YAMATO]

CVSROOT:        /sources/emacs
Module name:    emacs
Changes by:     Masatake YAMATO <jet>   06/11/30 15:55:15

Index: hexl.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/hexl.el,v
retrieving revision 1.107
retrieving revision 1.108
diff -u -b -r1.107 -r1.108
--- hexl.el     23 Nov 2006 18:34:44 -0000      1.107
+++ hexl.el     30 Nov 2006 15:55:14 -0000      1.108
@@ -104,6 +104,8 @@
 (defvar ruler-mode-ruler-function)
 (defvar hl-line-mode)
 
+(defvar hexl-mode-old-hl-line-range-function)
+(defvar hexl-mode-old-hl-line-face)
 (defvar hexl-mode-old-hl-line-mode)
 (defvar hexl-mode-old-local-map)
 (defvar hexl-mode-old-mode-name)
@@ -259,6 +261,11 @@
     (setq hexl-mode-old-hl-line-mode
          (and (boundp 'hl-line-mode) hl-line-mode))
 
+    (set (make-local-variable 'hexl-mode-old-hl-line-range-function)
+         hl-line-range-function)
+    (set (make-local-variable 'hexl-mode-old-hl-line-face)
+         hl-line-face)
+
     (make-local-variable 'hexl-mode-old-syntax-table)
     (setq hexl-mode-old-syntax-table (syntax-table))
     (set-syntax-table (standard-syntax-table))
@@ -388,6 +395,10 @@
       (ruler-mode 0))
   (if (and (boundp 'hl-line-mode) hl-line-mode (not 
hexl-mode-old-hl-line-mode))
       (hl-line-mode 0))
+
+  (set 'hl-line-range-function hexl-mode-old-hl-line-range-function)
+  (set 'hl-line-face hexl-mode-old-hl-line-face)
+
   (setq require-final-newline hexl-mode-old-require-final-newline)
   (setq mode-name hexl-mode-old-mode-name)
   (setq isearch-search-fun-function hexl-mode-old-isearch-search-fun-function)