(hexl-find-file): Bind `completion-ignored-extensions' to nil when

prompting for a filename.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 17eb7fb18262847555a6432e81e36e8211a0cab7..6942f437dccf1939e32f8042dce2298df579360e 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2002-07-09  Miles Bader  <miles@gnu.org>
+
+       * hexl.el (hexl-find-file): Bind `completion-ignored-extensions'
+       to nil when prompting for a filename.
+
 2002-07-09  Kenichi Handa  <handa@etl.go.jp>
 
        * files.el (insert-directory): Be sure to bind

diff --git a/lisp/hexl.el b/lisp/hexl.el
index 176def81026863fbd588560c528ae91cb567f27b..7c4a1610b9e8206a47e9f2776e623657ff2b050c 100644 (file)
--- 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 <ag@wheaties.ai.mit.edu>
 ;; 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)))