Mercurial > emacs
changeset 19113:c21a3a07b6fd
(hexlify-buffer, dehexlify-buffer):
Pay attention to buffer-file-type.
(hexl-save-buffer): Don't bind buffer-file-type around save-buffer.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Mon, 04 Aug 1997 02:44:42 +0000 |
| parents | 3940bb7f5515 |
| children | 5e2c2c7ca25e |
| files | lisp/hexl.el |
| diffstat | 1 files changed, 6 insertions(+), 7 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/hexl.el Mon Aug 04 01:53:36 1997 +0000 +++ b/lisp/hexl.el Mon Aug 04 02:44:42 1997 +0000 @@ -255,8 +255,7 @@ (set-buffer name) (dehexlify-buffer) ;; Prevent infinite recursion. - (let ((hexl-in-save-buffer t) - (buffer-file-type t)) ; for ms-dos + (let ((hexl-in-save-buffer t)) (save-buffer)) (setq modified (buffer-modified-p)) (delete-region (point-min) (point-max)) @@ -273,9 +272,7 @@ "Edit file FILENAME in hexl-mode. Switch to a buffer visiting file FILENAME, creating one in none exists." (interactive "fFilename: ") - (if (or (eq system-type 'ms-dos) (eq system-type 'windows-nt)) - (find-file-binary filename) - (find-file filename)) + (find-file-literally filename) (if (not (eq major-mode 'hexl-mode)) (hexl-mode))) @@ -581,7 +578,8 @@ (error "Aborted"))) (setq buffer-undo-list nil) (let ((binary-process-output nil) ; for Ms-Dos - (binary-process-input t) + (binary-process-input buffer-file-type) + (coding-system-for-write 'no-conversion) (buffer-undo-list t)) (shell-command-on-region (point-min) (point-max) hexlify-command t))) @@ -593,8 +591,9 @@ (or (y-or-n-p "Converting from hexl format discards undo info; ok? ") (error "Aborted"))) (setq buffer-undo-list nil) - (let ((binary-process-output t) ; for Ms-Dos + (let ((binary-process-output buffer-file-type) ; for Ms-Dos (binary-process-input nil) + (coding-system-for-read 'no-conversion) (buffer-undo-list t)) (shell-command-on-region (point-min) (point-max) dehexlify-command t)))