diff options
author | Miles Bader <[email protected]> | 2002-07-09 06:00:18 +0000 |
---|---|---|
committer | Miles Bader <[email protected]> | 2002-07-09 06:00:18 +0000 |
commit | e49a45ad850878d603332b3dc3c26c125fd0a61c (patch) | |
tree | 8944b4f53ebc14926ec849189a6f88789e55d606 /lisp | |
parent | 82e22b5719766011d2ff9281a21b720130c32ce1 (diff) |
(hexl-find-file): Bind `completion-ignored-extensions' to nil when
prompting for a filename.
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))) |