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

(hexlify-buffer): Bind coding-system-for-write to

Browse Source 
buffer-file-coding-system, instead of raw-text.
(dehexlify-buffer): Bind coding-system-for-read to
buffer-file-coding-system, instead of raw-text.
This commit is contained in:
Eli Zaretskii 2000-10-11 17:08:28 +00:00
parent 5c8b7eaf15
commit 0716afa2de
1 changed files with 2 additions and 20 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

22
lisp/hexl.el
View File

@ -600,17 +600,7 @@ This discards the buffer's undo information."
(setq buffer-undo-list nil)
;; Don't decode text in the ASCII part of `hexl' program output.
(let ((coding-system-for-read 'raw-text)
;; If the buffer was read with EOL conversions, be sure to use the
;; same conversions when passing the region to the `hexl' program.
(coding-system-for-write
(let ((eol-type (coding-system-eol-type buffer-file-coding-system)))
(cond ((eq eol-type 1)
'raw-text-dos)
((eq eol-type 2)
'raw-text-mac)
((eq eol-type 0)
'raw-text-unix)
(t 'no-conversion))))
(coding-system-for-write buffer-file-coding-system)
(buffer-undo-list t))
(shell-command-on-region (point-min) (point-max) hexlify-command t)
(if (> (point) (hexl-address-to-marker hexl-max-address))
@ -625,15 +615,7 @@ This discards the buffer's undo information."
(error "Aborted")))
(setq buffer-undo-list nil)
(let ((coding-system-for-write 'raw-text)
(coding-system-for-read
(let ((eol-type (coding-system-eol-type buffer-file-coding-system)))
(cond ((eq eol-type 1)
'raw-text-dos)
((eq eol-type 2)
'raw-text-mac)
((eq eol-type 0)
'raw-text-unix)
(t 'no-conversion))))
(coding-system-for-read buffer-file-coding-system)
(buffer-undo-list t))
(shell-command-on-region (point-min) (point-max) dehexlify-command t)))