[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
Re: table-recognize and default-major-mode
From: |
Richard M. Stallman |
Subject: |
Re: table-recognize and default-major-mode |
Date: |
Fri, 29 Jul 2005 23:34:06 -0400 |
This is a patch I am thinking of installing. Does it fix this
problem?
*** files.el 22 Jul 2005 00:55:52 -0400 1.781
--- files.el 23 Jul 2005 17:30:32 -0400
***************
*** 1464,1470 ****
buf)
;; Create a new buffer.
(setq buf (create-file-buffer filename))
- (set-buffer-major-mode buf)
;; find-file-noselect-1 may use a different buffer.
(find-file-noselect-1 buf filename nowarn
rawfile truename number))))))
--- 1464,1469 ----
***************
*** 1538,1543 ****
--- 1537,1543 ----
(progn
(set-buffer-multibyte nil)
(setq buffer-file-coding-system 'no-conversion)
+ (set-buffer-major-mode buf)
(make-local-variable 'find-file-literally)
(setq find-file-literally t))
(after-find-file error (not nowarn)))
***************
*** 1727,1733 ****
or from Lisp without specifying the optional argument FIND-FILE;
in that case, this function acts as if `enable-local-variables' were t."
(interactive)
! (or find-file (funcall (or default-major-mode 'fundamental-mode)))
(let ((enable-local-variables (or (not find-file) enable-local-variables)))
(report-errors "File mode specification error: %s"
(set-auto-mode))
--- 1727,1733 ----
or from Lisp without specifying the optional argument FIND-FILE;
in that case, this function acts as if `enable-local-variables' were t."
(interactive)
! (funcall (or default-major-mode 'fundamental-mode))
(let ((enable-local-variables (or (not find-file) enable-local-variables)))
(report-errors "File mode specification error: %s"
(set-auto-mode))