(hexl-find-file): Bind `default-major-mode' to `fundamental-mode'.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index d23f77dfa18076ee47fa6291030b30c1ff260381..9ed500a27727da84476bee38da04eec076be1e66 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2003-04-17  John Paul Wallington  <jpw@gnu.org>
+
+       * hexl.el (hexl-find-file): Bind `default-major-mode' to
+       `fundamental-mode'.
+
 2003-04-16  Kenichi Handa  <handa@m17n.org>
 
        * international/mule-cmds.el (describe-language-environment): At

diff --git a/lisp/hexl.el b/lisp/hexl.el
index f34c0f5dc498ef0ab70a2b5618b4615703e9c2a1..e4f6423bb8a73e706fdd9aa6eeb764580b416ccb 100644 (file)
--- a/lisp/hexl.el
+++ b/lisp/hexl.el
@@ -297,7 +297,7 @@ Switch to a buffer visiting file FILENAME, creating one in none exists."
     (let ((completion-ignored-extensions nil))
       (read-file-name "Filename: " nil nil 'ret-must-match))))
   ;; Ignore the user's setting of default-major-mode.
-  (let ((default-major-mode 'hexl-mode))
+  (let ((default-major-mode 'fundamental-mode))
     (find-file-literally filename))
   (if (not (eq major-mode 'hexl-mode))
       (hexl-mode)))