Re: hexl-mode causes problems

[Richard Stallman]

Does this fix it?


*** hexl.el     13 Jun 2004 17:07:24 -0400      1.89
--- hexl.el     15 Nov 2004 10:15:04 -0500      
***************
*** 99,107 ****
--- 99,113 ----
  
  (defvar hexl-mode-map nil)
  
+ (defvar ruler-mode)
+ (defvar ruler-mode-ruler-function)
+ (defvar hl-line-mode)
+ 
+ (defvar hexl-mode-old-hl-line-mode)
  (defvar hexl-mode-old-local-map)
  (defvar hexl-mode-old-mode-name)
  (defvar hexl-mode-old-major-mode)
+ (defvar hexl-mode-old-ruler-mode)
  (defvar hexl-mode-old-isearch-search-fun-function)
  (defvar hexl-mode-old-require-final-newline)
  (defvar hexl-mode-old-syntax-table)
***************
*** 240,245 ****
--- 246,259 ----
      (setq hexl-mode-old-major-mode major-mode)
      (setq major-mode 'hexl-mode)
  
+     (make-local-variable 'hexl-mode-old-ruler-mode)
+     (setq hexl-mode-old-ruler-mode
+         (and (boundp 'ruler-mode) ruler-mode))
+ 
+     (make-local-variable 'hexl-mode-old-hl-line-mode)
+     (setq hexl-mode-old-hl-line-mode
+         (and (boundp 'hl-line-mode) hl-line-mode))
+ 
      (make-local-variable 'hexl-mode-old-syntax-table)
      (setq hexl-mode-old-syntax-table (syntax-table))
      (set-syntax-table (standard-syntax-table))
***************
*** 353,358 ****
--- 367,376 ----
    (remove-hook 'post-command-hook 'hexl-follow-ascii-find t)
    (setq hexl-ascii-overlay nil)
  
+   (if (and (boundp 'ruler-mode) ruler-mode (not hexl-mode-old-ruler-mode))
+       (ruler-mode 0))
+   (if (and (boundp 'hl-line-mode) hl-line-mode (not 
hexl-mode-old-hl-line-mode))
+       (hl-line-mode 0))
    (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)