mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-22 07:09:54 +00:00
Code Issues Releases Activity

(hexl-maybe-dehexlify-buffer): New function.

Browse Source 
(hexl-mode): Add it to change-major-mode-hook.
(hexl-mode-exit): Remove kludge for mode-line update.
(hexlify-buffer): Doc fix.
This commit is contained in:
Richard M. Stallman 1994-07-12 07:25:31 +00:00
parent 4638b80645
commit 8eeac2cebd
1 changed files with 17 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

21
lisp/hexl.el
View File

@ -172,6 +172,9 @@ You can use \\[hexl-find-file] to visit a file in hexl-mode.
(make-local-variable 'hexl-max-address)
(make-local-variable 'change-major-mode-hook)
(add-hook 'change-major-mode-hook 'hexl-maybe-dehexlify-buffer)
(let ((modified (buffer-modified-p))
(inhibit-read-only t)
(original-point (1- (point))))
@ -241,9 +244,19 @@ With arg, don't unhexlify buffer."
(setq mode-name hexl-mode-old-mode-name)
(use-local-map hexl-mode-old-local-map)
(setq major-mode hexl-mode-old-major-mode)
;; Kludge to update mode-line
(switch-to-buffer (current-buffer))
)
(force-mode-line-update))
(defun hexl-maybe-dehexlify-buffer ()
"Convert a hexl format buffer to binary.
Ask the user for confirmation."
(if (y-or-n-p "Convert contents back to binary format? ")
(let ((modified (buffer-modified-p))
(inhibit-read-only t)
(original-point (1+ (hexl-current-address))))
(dehexlify-buffer)
(remove-hook 'write-contents-hook 'hexl-save-buffer)
(set-buffer-modified-p modified)
(goto-char original-point))))
(defun hexl-current-address ()
"Return current hexl-address."
@ -498,7 +511,7 @@ You may also type up to 3 octal digits, to insert a character with that code"
;;;###autoload
(defun hexlify-buffer ()
"Convert a binary buffer to hexl format"
"Convert a binary buffer to hexl format."
(interactive)
(let ((binary-process-output nil) ; for Ms-Dos
(binary-process-input t))