1728 |
in that case, this function acts as if `enable-local-variables' were t." |
in that case, this function acts as if `enable-local-variables' were t." |
1729 |
(interactive) |
(interactive) |
1730 |
(or find-file (funcall (or default-major-mode 'fundamental-mode))) |
(or find-file (funcall (or default-major-mode 'fundamental-mode))) |
1731 |
(report-errors "File mode specification error: %s" |
(let ((enable-local-variables (or (not find-file) enable-local-variables))) |
1732 |
(set-auto-mode)) |
(report-errors "File mode specification error: %s" |
1733 |
(report-errors "File local-variables error: %s" |
(set-auto-mode)) |
1734 |
(let ((enable-local-variables (or (not find-file) enable-local-variables))) |
(report-errors "File local-variables error: %s" |
1735 |
(hack-local-variables))) |
(hack-local-variables))) |
1736 |
(if (fboundp 'ucs-set-table-for-input) ; don't lose when building |
(if (fboundp 'ucs-set-table-for-input) ; don't lose when building |
1737 |
(ucs-set-table-for-input))) |
(ucs-set-table-for-input))) |
1992 |
to decide the buffer's major mode. |
to decide the buffer's major mode. |
1993 |
|
|
1994 |
If FUNCTION is nil, then it is not called. (That is a way of saying |
If FUNCTION is nil, then it is not called. (That is a way of saying |
1995 |
\"allow `auto-mode-alist' to decide for these files.") |
\"allow `auto-mode-alist' to decide for these files.)") |
1996 |
|
|
1997 |
(defun set-auto-mode (&optional keep-mode-if-same) |
(defun set-auto-mode (&optional keep-mode-if-same) |
1998 |
"Select major mode appropriate for current buffer. |
"Select major mode appropriate for current buffer. |