1 |
;;; hexl.el --- edit a file in a hex dump format using the hexl filter |
;;; hexl.el --- edit a file in a hex dump format using the hexl filter |
2 |
|
|
3 |
;; Copyright (C) 1989, 1994, 1998, 2001 Free Software Foundation, Inc. |
;; Copyright (C) 1989, 1994, 1998, 2001, 2002 Free Software Foundation, Inc. |
4 |
|
|
5 |
;; Author: Keith Gabryelski <ag@wheaties.ai.mit.edu> |
;; Author: Keith Gabryelski <ag@wheaties.ai.mit.edu> |
6 |
;; Maintainer: FSF |
;; Maintainer: FSF |
277 |
(defun hexl-find-file (filename) |
(defun hexl-find-file (filename) |
278 |
"Edit file FILENAME in hexl-mode. |
"Edit file FILENAME in hexl-mode. |
279 |
Switch to a buffer visiting file FILENAME, creating one in none exists." |
Switch to a buffer visiting file FILENAME, creating one in none exists." |
280 |
(interactive "fFilename: ") |
(interactive |
281 |
|
(list |
282 |
|
(let ((completion-ignored-extensions nil)) |
283 |
|
(read-file-name "Filename: " nil nil 'ret-must-match)))) |
284 |
(find-file-literally filename) |
(find-file-literally filename) |
285 |
(if (not (eq major-mode 'hexl-mode)) |
(if (not (eq major-mode 'hexl-mode)) |
286 |
(hexl-mode))) |
(hexl-mode))) |