emacs/test/lisp/files-resources/.dir-locals.el

;; This is used by files-tests.el.
((auto-mode-alist . (("\\.quux\\'" . tcl-mode)
		     ("\\.zot1\\'" . foobar)
		     ("\\.zot2\\'" . (lambda ()))
		     ("\\.zot3\\'" . dired-mode))))
Add auto-mode-alist functionality to .dir-locals.el * doc/emacs/custom.texi (Directory Variables): Document auto-mode-alist in .dir-locals.el (Bug#18721) * doc/emacs/modes.texi (Choosing Modes): Update. * lisp/files.el (set-auto-mode--apply-alist): New function, from set-auto-mode. (set-auto-mode): Check directory locals for auto-mode-alist. (dir-locals-collect-variables): Add "predicate" parameter. (hack-dir-local--get-variables): New function, from hack-dir-local-variables. (hack-dir-local-variables): Call hack-dir-local--get-variables. * test/lisp/files-resources/.dir-locals.el: New file. * test/lisp/files-resources/whatever.quux: New file. * test/lisp/files-tests.el (files-tests-data-dir): New variable. (files-test-dir-locals-auto-mode-alist): New test. 2021-07-23 15:51:11 +02:00			`;; This is used by files-tests.el.`
Make the test for auto-mode-alist from .dir-local.el stricter * lisp/files.el (set-auto-mode--dir-local-valid-p): New function. (set-auto-mode--apply-alist): Use it as a stricter test. 2021-07-24 11:16:15 +02:00			`((auto-mode-alist . (("\\.quux\\'" . tcl-mode)`
			`("\\.zot1\\'" . foobar)`
			`("\\.zot2\\'" . (lambda ()))`
			`("\\.zot3\\'" . dired-mode))))`