diff options
| author | Richard M. Stallman <rms@gnu.org> | 2003-04-03 23:01:12 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 2003-04-03 23:01:12 +0000 |
| commit | 3db6aff67fc535dd38f0bfb25959b8ca3c6c2eb5 (patch) | |
| tree | c592283c9424f83510785ef690bf36060099471c /lisp/hexl.el | |
| parent | a0e74e7261cec4477a5be641424c77c441cd1b42 (diff) | |
| download | emacs-3db6aff67fc535dd38f0bfb25959b8ca3c6c2eb5.tar.gz | |
(hexl-find-file): Ignore user's value of default-major-mode.
Diffstat (limited to 'lisp/hexl.el')
| -rw-r--r-- | lisp/hexl.el | 4 |
1 files changed, 3 insertions, 1 deletions
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))) |