Github/emacs
2
0
Fork 1
mirror of git://git.sv.gnu.org/emacs.git synced 2026-02-17 10:27:41 +00:00
Code Issues Projects Releases Packages Wiki Activity

(dehexlify-buffer): Reflect that binary-process was

Browse source 
renamed to binary-process-output.
(dehexlify-buffer): Bind also binary-process-input (for ms-dos).
(hexlify-buffer): Bind both binary-process-input and
binary-process-input (for ms-dos).
(hexl-save-buffer): Force binary save (for ms-dos).
This commit is contained in:
Richard M. Stallman 1994-05-07 21:55:56 +00:00
parent 093650fe31
commit 1fa65e2ff9
1 changed files with 7 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

10
lisp/hexl.el
View file

@ -202,7 +202,8 @@ You can use \\[hexl-find-file] to visit a file in hexl-mode.
(set-buffer name)
(dehexlify-buffer)
;; Prevent infinite recursion.
(let ((hexl-in-save-buffer t))
(let ((hexl-in-save-buffer t)
(buffer-file-type t)) ; for ms-dos
(save-buffer))
(setq modified (buffer-modified-p))
(delete-region (point-min) (point-max))
@ -499,12 +500,15 @@ You may also type up to 3 octal digits, to insert a character with that code"
(defun hexlify-buffer ()
"Convert a binary buffer to hexl format"
(interactive)
(shell-command-on-region (point-min) (point-max) hexlify-command t))
(let ((binary-process-output nil) ; for Ms-Dos
(binary-process-input t))
(shell-command-on-region (point-min) (point-max) hexlify-command t)))
(defun dehexlify-buffer ()
"Convert a hexl format buffer to binary."
(interactive)
(let ((binary-process t)) ; for Ms-Dos
(let ((binary-process-output t) ; for Ms-Dos
(binary-process-input nil))
(shell-command-on-region (point-min) (point-max) dehexlify-command t)))
(defun hexl-char-after-point ()