mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-02-15 04:11:53 -08:00
Code Issues Projects Releases Wiki Activity

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

Browse source 
(hexl-after-revert-hook): New function.
This commit is contained in:
Richard M. Stallman 1995-03-09 03:05:51 +00:00
parent b7e6e61235
commit c3de2bf001
1 changed files with 7 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

7
lisp/hexl.el
View file

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