diff options
| author | Kira Bruneau <kira.bruneau@gmail.com> | 2022-08-04 08:26:38 +0200 |
|---|---|---|
| committer | Lars Ingebrigtsen <larsi@gnus.org> | 2022-08-04 08:26:38 +0200 |
| commit | 3e60f7f3c31a8491b085684121e5229be56b3538 (patch) | |
| tree | 811579ee5476cf2c5948c7eb329597a668e57294 | |
| parent | 118a911159e75f3ad9305cd7f298816bfb59d715 (diff) | |
| download | emacs-3e60f7f3c31a8491b085684121e5229be56b3538.tar.gz emacs-3e60f7f3c31a8491b085684121e5229be56b3538.tar.bz2 emacs-3e60f7f3c31a8491b085684121e5229be56b3538.zip | |
Fix ignored-local-variable-values for non-primitive values
* lisp/files.el (hack-local-variables-filter): Fix
`ignored-local-variable-values' for non-primitive values (bug#56957).
| -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 5df19661936..e258bf7bbed 100644 --- a/lisp/files.el +++ b/lisp/files.el @@ -3848,10 +3848,8 @@ DIR-NAME is the name of the associated directory. Otherwise it is nil." (cond ((memq var ignored-local-variables) ;; Ignore any variable in `ignored-local-variables'. nil) - ((seq-some (lambda (elem) - (and (eq (car elem) var) - (eq (cdr elem) val))) - ignored-local-variable-values) + ;; Ignore variables with the specified values. + ((member elt ignored-local-variable-values) nil) ;; Obey `enable-local-eval'. ((eq var 'eval) |