Mercurial > emacs

comparison lisp/hexl.el @ 50424:0b8df17aac7e

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(hexl-find-file): Ignore user's value of default-major-mode.
author Richard M. Stallman <rms@gnu.org>
date Thu, 03 Apr 2003 23:01:12 +0000
parents 37645a051842
children e27cb2931931
comparison
equal deleted inserted replaced
50423:e1c7e157854c 50424:0b8df17aac7e
294 Switch to a buffer visiting file FILENAME, creating one in none exists." 294 Switch to a buffer visiting file FILENAME, creating one in none exists."
295 (interactive 295 (interactive
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
303 (defun hexl-mode-exit (&optional arg) 305 (defun hexl-mode-exit (&optional arg)
304 "Exit Hexl mode, returning to previous mode. 306 "Exit Hexl mode, returning to previous mode.