From 3db6aff67fc535dd38f0bfb25959b8ca3c6c2eb5 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Thu, 3 Apr 2003 23:01:12 +0000 Subject: [PATCH] (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))) -- 2.39.2