From 3db6aff67fc535dd38f0bfb25959b8ca3c6c2eb5 Mon Sep 17 00:00:00 2001
From: "Richard M. Stallman" <rms@gnu.org>
Date: Thu, 3 Apr 2003 23:01:12 +0000
Subject: (hexl-find-file): Ignore user's value of default-major-mode.
---
lisp/hexl.el | 4 +++-
1 file changed, 3 insertions(+), 1 deletion(-)
diff --git a/lisp/hexl.el b/lisp/hexl.el
index 9330de1a600..f34c0f5dc49 100644
--- a/lisp/hexl.el
+++ b/lisp/hexl.el
@@ -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)))
--
cgit v1.2.1