diff options
| -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." | |||
| 296 | (list | 296 | (list |
| 297 | (let ((completion-ignored-extensions nil)) | 297 | (let ((completion-ignored-extensions nil)) |
| 298 | (read-file-name "Filename: " nil nil 'ret-must-match)))) | 298 | (read-file-name "Filename: " nil nil 'ret-must-match)))) |
| 299 | (find-file-literally filename) | 299 | ;; Ignore the user's setting of default-major-mode. |
| 300 | (let ((default-major-mode 'hexl-mode)) | ||
| 301 | (find-file-literally filename)) | ||
| 300 | (if (not (eq major-mode 'hexl-mode)) | 302 | (if (not (eq major-mode 'hexl-mode)) |
| 301 | (hexl-mode))) | 303 | (hexl-mode))) |
| 302 | 304 | ||