comparison lisp/hexl.el @ 19113:c21a3a07b6fd

(hexlify-buffer, dehexlify-buffer): Pay attention to buffer-file-type. (hexl-save-buffer): Don't bind buffer-file-type around save-buffer.

19112:3940bb7f5515

				   (set-buffer buf)
				   (insert-buffer-substring name start end)
				   (set-buffer name)
				   (dehexlify-buffer)
				   ;; Prevent infinite recursion.
				   (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))
				   (insert-buffer-substring buf start end)
				   (kill-buffer buf)

;;;###autoload
(defun hexl-find-file (filename)
  "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))
  (if (not (eq major-mode 'hexl-mode))
      (hexl-mode)))

(defun hexl-mode-exit (&optional arg)
  "Exit Hexl mode, returning to previous mode.

  (and buffer-undo-list
       (or (y-or-n-p "Converting to hexl format discards undo info; ok? ")
	   (error "Aborted")))
  (setq buffer-undo-list nil)
  (let ((binary-process-output nil) ; for Ms-Dos
	(binary-process-input t)
	(buffer-undo-list t))
    (shell-command-on-region (point-min) (point-max) hexlify-command t)))

(defun dehexlify-buffer ()
  "Convert a hexl format buffer to binary.

  (interactive)
  (and buffer-undo-list
       (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
	(binary-process-input nil)
	(buffer-undo-list t))
    (shell-command-on-region (point-min) (point-max) dehexlify-command t)))

(defun hexl-char-after-point ()
  "Return char for ASCII hex digits at point."

19113:c21a3a07b6fd

				   (set-buffer buf)
				   (insert-buffer-substring name start end)
				   (set-buffer name)
				   (dehexlify-buffer)
				   ;; Prevent infinite recursion.
				   (let ((hexl-in-save-buffer t))
				     (save-buffer))
				   (setq modified (buffer-modified-p))
				   (delete-region (point-min) (point-max))
				   (insert-buffer-substring buf start end)
				   (kill-buffer buf)

;;;###autoload
(defun hexl-find-file (filename)
  "Edit file FILENAME in hexl-mode.
Switch to a buffer visiting file FILENAME, creating one in none exists."
  (interactive "fFilename: ")
  (find-file-literally filename)
  (if (not (eq major-mode 'hexl-mode))
      (hexl-mode)))

(defun hexl-mode-exit (&optional arg)
  "Exit Hexl mode, returning to previous mode.

  (and buffer-undo-list
       (or (y-or-n-p "Converting to hexl format discards undo info; ok? ")
	   (error "Aborted")))
  (setq buffer-undo-list nil)
  (let ((binary-process-output nil) ; for Ms-Dos
	(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)))

(defun dehexlify-buffer ()
  "Convert a hexl format buffer to binary.

  (interactive)
  (and buffer-undo-list
       (or (y-or-n-p "Converting from hexl format discards undo info; ok? ")
	   (error "Aborted")))
  (setq buffer-undo-list nil)
  (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)))

(defun hexl-char-after-point ()
  "Return char for ASCII hex digits at point."