/[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.89 by rms, Sun Jun 13 21:58:41 2004 UTC revision 1.90 by rms, Sun Nov 21 00:38:34 2004 UTC
# Line 99  Quoting cannot be used, so the arguments Line 99  Quoting cannot be used, so the arguments
99    
100  (defvar hexl-mode-map nil)  (defvar hexl-mode-map nil)
101    
102    (defvar ruler-mode)
103    (defvar ruler-mode-ruler-function)
104    (defvar hl-line-mode)
105    
106    (defvar hexl-mode-old-hl-line-mode)
107  (defvar hexl-mode-old-local-map)  (defvar hexl-mode-old-local-map)
108  (defvar hexl-mode-old-mode-name)  (defvar hexl-mode-old-mode-name)
109  (defvar hexl-mode-old-major-mode)  (defvar hexl-mode-old-major-mode)
110    (defvar hexl-mode-old-ruler-mode)
111  (defvar hexl-mode-old-isearch-search-fun-function)  (defvar hexl-mode-old-isearch-search-fun-function)
112  (defvar hexl-mode-old-require-final-newline)  (defvar hexl-mode-old-require-final-newline)
113  (defvar hexl-mode-old-syntax-table)  (defvar hexl-mode-old-syntax-table)
# Line 240  You can use \\[hexl-find-file] to visit Line 246  You can use \\[hexl-find-file] to visit
246      (setq hexl-mode-old-major-mode major-mode)      (setq hexl-mode-old-major-mode major-mode)
247      (setq major-mode 'hexl-mode)      (setq major-mode 'hexl-mode)
248    
249        (make-local-variable 'hexl-mode-old-ruler-mode)
250        (setq hexl-mode-old-ruler-mode
251              (and (boundp 'ruler-mode) ruler-mode))
252    
253        (make-local-variable 'hexl-mode-old-hl-line-mode)
254        (setq hexl-mode-old-hl-line-mode
255              (and (boundp 'hl-line-mode) hl-line-mode))
256    
257      (make-local-variable 'hexl-mode-old-syntax-table)      (make-local-variable 'hexl-mode-old-syntax-table)
258      (setq hexl-mode-old-syntax-table (syntax-table))      (setq hexl-mode-old-syntax-table (syntax-table))
259      (set-syntax-table (standard-syntax-table))      (set-syntax-table (standard-syntax-table))
# Line 353  With arg, don't unhexlify buffer." Line 367  With arg, don't unhexlify buffer."
367    (remove-hook 'post-command-hook 'hexl-follow-ascii-find t)    (remove-hook 'post-command-hook 'hexl-follow-ascii-find t)
368    (setq hexl-ascii-overlay nil)    (setq hexl-ascii-overlay nil)
369    
370      (if (and (boundp 'ruler-mode) ruler-mode (not hexl-mode-old-ruler-mode))
371          (ruler-mode 0))
372      (if (and (boundp 'hl-line-mode) hl-line-mode (not hexl-mode-old-hl-line-mode))
373          (hl-line-mode 0))
374    (setq require-final-newline hexl-mode-old-require-final-newline)    (setq require-final-newline hexl-mode-old-require-final-newline)
375    (setq mode-name hexl-mode-old-mode-name)    (setq mode-name hexl-mode-old-mode-name)
376    (setq isearch-search-fun-function hexl-mode-old-isearch-search-fun-function)    (setq isearch-search-fun-function hexl-mode-old-isearch-search-fun-function)

Legend:
Removed from v.1.89  
changed lines
  Added in v.1.90

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