From: Richard M. Stallman <rms@gnu.org>
Date: Thu, 9 Mar 1995 03:05:51 +0000 (+0000)
Subject: (hexl-mode): Make after-revert-hook rehexlify.
X-Git-Tag: emacs-19.34~4910
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=c3de2bf0018ce0bb6e147dbbc010ae02869c64d5;p=emacs.git

(hexl-mode): Make after-revert-hook rehexlify.
(hexl-after-revert-hook): New function.
---

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