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) |
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)) |
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) |