diff options
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/ChangeLog | 5 | ||||
| -rw-r--r-- | lisp/hexl.el | 7 |
2 files changed, 10 insertions, 2 deletions
diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 17eb7fb182..6942f437dc 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,8 @@ +2002-07-09 Miles Bader <[email protected]> + + * hexl.el (hexl-find-file): Bind `completion-ignored-extensions' + to nil when prompting for a filename. + 2002-07-09 Kenichi Handa <[email protected]> * files.el (insert-directory): Be sure to bind diff --git a/lisp/hexl.el b/lisp/hexl.el index 176def8102..7c4a1610b9 100644 --- a/lisp/hexl.el +++ b/lisp/hexl.el @@ -1,6 +1,6 @@ ;;; hexl.el --- edit a file in a hex dump format using the hexl filter -;; Copyright (C) 1989, 1994, 1998, 2001 Free Software Foundation, Inc. +;; Copyright (C) 1989, 1994, 1998, 2001, 2002 Free Software Foundation, Inc. ;; Author: Keith Gabryelski <[email protected]> ;; Maintainer: FSF @@ -277,7 +277,10 @@ You can use \\[hexl-find-file] to visit a file in Hexl mode. (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: ") + (interactive + (list + (let ((completion-ignored-extensions nil)) + (read-file-name "Filename: " nil nil 'ret-must-match)))) (find-file-literally filename) (if (not (eq major-mode 'hexl-mode)) (hexl-mode))) |