diff options
| author | Stefan Monnier <monnier@iro.umontreal.ca> | 2024-02-25 11:35:44 -0500 |
|---|---|---|
| committer | Stefan Monnier <monnier@iro.umontreal.ca> | 2024-02-25 11:35:44 -0500 |
| commit | b7cef701cb587ecb66f192e4d41aa202645560e0 (patch) | |
| tree | 1b5daa638e6f20b8867dc2b51e2f12578829e2ce /lisp/files.el | |
| parent | 0530800175913769cb55ae7997ee4487a755a0a4 (diff) | |
| download | emacs-b7cef701cb587ecb66f192e4d41aa202645560e0.tar.gz emacs-b7cef701cb587ecb66f192e4d41aa202645560e0.tar.bz2 emacs-b7cef701cb587ecb66f192e4d41aa202645560e0.zip | |
* lisp/files.el (hack-one-local-variable): Use `set-auto-mode-0`
This fixes bug#69373.
Diffstat (limited to 'lisp/files.el')
| -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." (pcase var ('mode (let ((mode (intern (concat (downcase (symbol-name val)) - "-mode")))) - (unless (eq (indirect-function mode) - (indirect-function major-mode)) - (funcall mode)))) + "-mode")))) + (set-auto-mode-0 mode t))) ('eval (pcase val (`(add-hook ',hook . ,_) (hack-one-local-variable--obsolete hook))) |