# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 1049410872 0
# Node ID 0b8df17aac7efc6cc4963555a3fa2ad29964f54f
# Parent  e1c7e157854ceeb147a673171305e5cb0069514d
(hexl-find-file): Ignore user's value of default-major-mode.

diff -r e1c7e157854c -r 0b8df17aac7e lisp/hexl.el
--- a/lisp/hexl.el	Thu Apr 03 23:00:22 2003 +0000
+++ b/lisp/hexl.el	Thu Apr 03 23:01:12 2003 +0000
@@ -296,7 +296,9 @@
    (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)))