diff options
| -rw-r--r-- | lisp/files.el | 6 |
1 files changed, 2 insertions, 4 deletions
diff --git a/lisp/files.el b/lisp/files.el index 1e7f00e4254..c0d26b2343c 100644 --- a/lisp/files.el +++ b/lisp/files.el | |||
| @@ -4238,10 +4238,8 @@ already the major mode." | |||
| 4238 | (pcase var | 4238 | (pcase var |
| 4239 | ('mode | 4239 | ('mode |
| 4240 | (let ((mode (intern (concat (downcase (symbol-name val)) | 4240 | (let ((mode (intern (concat (downcase (symbol-name val)) |
| 4241 | "-mode")))) | 4241 | "-mode")))) |
| 4242 | (unless (eq (indirect-function mode) | 4242 | (set-auto-mode-0 mode t))) |
| 4243 | (indirect-function major-mode)) | ||
| 4244 | (funcall mode)))) | ||
| 4245 | ('eval | 4243 | ('eval |
| 4246 | (pcase val | 4244 | (pcase val |
| 4247 | (`(add-hook ',hook . ,_) (hack-one-local-variable--obsolete hook))) | 4245 | (`(add-hook ',hook . ,_) (hack-one-local-variable--obsolete hook))) |