# HG changeset patch
# User Miles Bader <miles@gnu.org>
# Date 1026194405 0
# Node ID 4eaf280a94e1c1abd515bfab586afca1f5643f5a
# Parent  5f6fed8690307439198eb705066462125cf40779
(hexl-find-file): Bind `completion-ignored-extensions' to nil when
prompting for a filename.

diff -r 5f6fed869030 -r 4eaf280a94e1 lisp/hexl.el
--- a/lisp/hexl.el	Tue Jul 09 02:42:06 2002 +0000
+++ b/lisp/hexl.el	Tue Jul 09 06:00:05 2002 +0000
@@ -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 @@
 (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)))