From: John Paul Wallington <jpw@pobox.com>
Date: Thu, 17 Apr 2003 02:41:12 +0000 (+0000)
Subject: (hexl-find-file): Bind `default-major-mode' to `fundamental-mode'.
X-Git-Tag: ttn-vms-21-2-B4~10488
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=45e8e6e75e85819ac82b480f284a78d306d74113;p=emacs.git

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

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index d23f77dfa18..9ed500a2772 100644
--- 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 f34c0f5dc49..e4f6423bb8a 100644
--- 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)))