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

(hack-local-variables-filter): Remove entries with duplicate keys from

Browse source 
`file-local-variables-alist'.
This commit is contained in:
Alan Mackenzie 2009-07-18 20:41:32 +00:00
parent 10d37df7e2
commit 982cbcabc0
1 changed files with 12 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

14
lisp/files.el
View file

@ -2960,7 +2960,11 @@ DIR-NAME is a directory name if these settings come from
(dolist (elt variables)
(unless (or (member elt unsafe-vars)
(member elt risky-vars))
(push elt file-local-variables-alist)))
(let ((var (car elt)))
(unless (eq var 'eval)
(setq file-local-variables-alist
(assq-delete-all var file-local-variables-alist)))
(push elt file-local-variables-alist))))
;; Query, unless all are known safe or the user wants no
;; querying.
(if (or (and (eq enable-local-variables t)
@ -2970,7 +2974,12 @@ DIR-NAME is a directory name if these settings come from
(hack-local-variables-confirm
variables unsafe-vars risky-vars dir-name))
(dolist (elt variables)
(push elt file-local-variables-alist)))))))
(let ((var (car elt)))
(unless (eq var 'eval)
(setq file-local-variables-alist
(assq-delete-all var file-local-variables-alist)))
(push elt file-local-variables-alist))))))))
(defun hack-local-variables (&optional mode-only)
"Parse and put into effect this buffer's local variables spec.
@ -3073,6 +3082,7 @@ is specified, returning t if it is specified."
(enable-local-variables
(hack-local-variables-filter result nil)
(when file-local-variables-alist
;; Any 'evals must run in the Right sequence.
(setq file-local-variables-alist
(nreverse file-local-variables-alist))
(run-hooks 'before-hack-local-variables-hook)