mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-01-30 04:10:54 -08:00
Code Issues Projects Releases Wiki Activity

(hexl-find-file): Ignore user's value of default-major-mode.

Browse source
This commit is contained in:
Richard M. Stallman 2003-04-03 23:01:12 +00:00
parent a0e74e7261
commit 3db6aff67f
1 changed files with 3 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

4
lisp/hexl.el
View file

@ -296,7 +296,9 @@ Switch to a buffer visiting file FILENAME, creating one in none exists."
(list
(let ((completion-ignored-extensions nil))
(read-file-name "Filename: " nil nil 'ret-must-match))))
(find-file-literally filename)
;; Ignore the user's setting of default-major-mode.
(let ((default-major-mode 'hexl-mode))
(find-file-literally filename))
(if (not (eq major-mode 'hexl-mode))
(hexl-mode)))