comparison lisp/hexl.el @ 5458:0873b536e71d

(dehexlify-buffer): If msdos, bind binary-process. (hexl-find-file): Load as binary.

5457:4fe8a94b0aa6

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

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

  (shell-command-on-region (point-min) (point-max) hexlify-command t))

(defun dehexlify-buffer ()
  "Convert a hexl format buffer to binary."
  (interactive)
  (shell-command-on-region (point-min) (point-max) dehexlify-command t))

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

5458:0873b536e71d

;;;###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 (eq system-type 'ms-dos)
      (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.

  (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
    (shell-command-on-region (point-min) (point-max) dehexlify-command t)))

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