diff options
Diffstat (limited to 'lisp/hexl.el')
| -rw-r--r-- | lisp/hexl.el | 7 |
1 files changed, 7 insertions, 0 deletions
diff --git a/lisp/hexl.el b/lisp/hexl.el index 669724506b0..806312b0bba 100644 --- a/lisp/hexl.el +++ b/lisp/hexl.el @@ -170,6 +170,9 @@ You can use \\[hexl-find-file] to visit a file in hexl-mode. (make-local-variable 'write-contents-hooks) (add-hook 'write-contents-hooks 'hexl-save-buffer) + (make-local-hook 'after-revert-hook) + (add-hook 'after-revert-hook 'hexl-after-revert-hook nil t) + (make-local-variable 'hexl-max-address) (make-local-variable 'change-major-mode-hook) @@ -186,6 +189,10 @@ You can use \\[hexl-find-file] to visit a file in hexl-mode. (set-buffer-modified-p modified) (hexl-goto-address original-point))))) +(defun hexl-after-revert-hook () + (hexlify-buffer) + (set-buffer-modified-p nil)) + (defvar hexl-in-save-buffer nil) (defun hexl-save-buffer () |