From e49a45ad850878d603332b3dc3c26c125fd0a61c Mon Sep 17 00:00:00 2001 From: Miles Bader Date: Tue, 9 Jul 2002 06:00:18 +0000 Subject: [PATCH] (hexl-find-file): Bind `completion-ignored-extensions' to nil when prompting for a filename. --- lisp/ChangeLog | 5 +++++ lisp/hexl.el | 7 +++++-- 2 files changed, 10 insertions(+), 2 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 17eb7fb1826..6942f437dcc 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,8 @@ +2002-07-09 Miles Bader + + * hexl.el (hexl-find-file): Bind `completion-ignored-extensions' + to nil when prompting for a filename. + 2002-07-09 Kenichi Handa * files.el (insert-directory): Be sure to bind diff --git a/lisp/hexl.el b/lisp/hexl.el index 176def81026..7c4a1610b9e 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 ;; 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))) -- 2.39.2