martin/emacs
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

(hexl-mode): Use add-hook' to modify buffer local write-contents-hooks'.

Browse Source 
(hexl-mode-exit): Remove our hook when turning off Hexl mode.
This commit is contained in:
Richard M. Stallman
1993-11-10 20:44:14 +00:00
parent 7a5a26a68f
commit c6fcafde81
1 changed files with 2 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
lisp/hexl.el
View File

@@ -167,8 +167,7 @@ You can use \\[hexl-find-file] to visit a file in hexl-mode.
(setq major-mode 'hexl-mode)
(make-local-variable 'write-contents-hooks)
(setq write-contents-hooks
(cons 'hexl-save-buffer write-contents-hooks))
(add-hook 'write-contents-hooks 'hexl-save-buffer)
(let ((modified (buffer-modified-p))
(read-only buffer-read-only)
@@ -233,6 +232,7 @@ With arg, don't unhexlify buffer."
(original-point (1+ (hexl-current-address))))
(setq buffer-read-only nil)
(dehexlify-buffer)
(remove-hook 'write-contents-hook 'hexl-save-buffer)
(set-buffer-modified-p modified)
(setq buffer-read-only read-only)
(goto-char original-point)))