procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

(hack-one-local-variable): Fix bug#74964

Browse source 
* lisp/files.el (hack-local-variables--inhibit): New var.
(hack-one-local-variable): Use it to avoid infinite recursion in a more
targeted manner.
This commit is contained in:
Stefan Monnier 2025-01-05 10:03:40 -05:00
parent 672a5f2b82
commit 127fc98308
1 changed files with 6 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

7
lisp/files.el
View file

@ -4490,11 +4490,15 @@ It is dangerous if either of these conditions are met:
(substitute-command-keys instead)
(format-message "use `%s' instead" instead)))))))
(defvar hack-local-variables--inhibit nil
"List of file/dir local variables to ignore.")
(defun hack-one-local-variable (var val)
"Set local variable VAR with value VAL.
If VAR is `mode', call `VAL-mode' as a function unless it's
already the major mode."
(pcase var
((guard (memq var hack-local-variables--inhibit)) nil)
('mode
(let ((mode (intern (concat (downcase (symbol-name val))
"-mode"))))
@ -4502,7 +4506,8 @@ already the major mode."
('eval
(pcase val
(`(add-hook ',hook . ,_) (hack-one-local-variable--obsolete hook)))
(let ((enable-local-variables nil)) ;FIXME: Should be buffer-local!
(let ((hack-local-variables--inhibit ;; FIXME: Should be buffer-local!
(cons 'eval hack-local-variables--inhibit)))
(save-excursion (eval val t))))
(_
(hack-one-local-variable--obsolete var)