/[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.69 by eliz, Sat Sep 22 17:47:47 2001 UTC revision 1.70 by pj, Mon Nov 26 16:27:00 2001 UTC
# Line 254  You can use \\[hexl-find-file] to visit Line 254  You can use \\[hexl-find-file] to visit
254      (setq require-final-newline nil)      (setq require-final-newline nil)
255    
256      ;; Add hooks to rehexlify or dehexlify on various events.      ;; Add hooks to rehexlify or dehexlify on various events.
     (make-local-hook 'after-revert-hook)  
257      (add-hook 'after-revert-hook 'hexl-after-revert-hook nil t)      (add-hook 'after-revert-hook 'hexl-after-revert-hook nil t)
258    
     (make-local-hook 'change-major-mode-hook)  
259      (add-hook 'change-major-mode-hook 'hexl-maybe-dehexlify-buffer nil t)      (add-hook 'change-major-mode-hook 'hexl-maybe-dehexlify-buffer nil t)
260    
261      (if hexl-follow-ascii (hexl-follow-ascii 1)))      (if hexl-follow-ascii (hexl-follow-ascii 1)))
# Line 835  Customize the variable `hexl-follow-asci Line 833  Customize the variable `hexl-follow-asci
833                    (> (prefix-numeric-value arg) 0)                    (> (prefix-numeric-value arg) 0)
834                 (not hexl-ascii-overlay))))                 (not hexl-ascii-overlay))))
835    
     (make-local-hook 'post-command-hook)  
                       
836      (if on-p      (if on-p
837        ;; turn it on        ;; turn it on
838        (if (not hexl-ascii-overlay)        (if (not hexl-ascii-overlay)

Legend:
Removed from v.1.69  
changed lines
  Added in v.1.70

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