diff options
author | Lars Ingebrigtsen <larsi@gnus.org> | 2022-01-24 15:05:28 +0100 |
---|---|---|
committer | Lars Ingebrigtsen <larsi@gnus.org> | 2022-01-24 15:06:39 +0100 |
commit | ffb0e8c4eff43a31bfb95eaf8b9db9d3c400e5ae (patch) | |
tree | d4d32c4f8b5effd364d9a8a1a8e8be0cd9dcdbe6 | |
parent | 067e84116dde36a2e058e3915fe81c818a21e40a (diff) | |
download | emacs-ffb0e8c4eff43a31bfb95eaf8b9db9d3c400e5ae.tar.gz |
Make anonymous functions work in auto-mode-alist
* lisp/files.el (set-auto-mode--apply-alist): Don't infloop on
anonymous functions in auto-mode-alist (bug#20709).
-rw-r--r-- | lisp/files.el | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/lisp/files.el b/lisp/files.el index e021545cf14..aabe8f445e0 100644 --- a/lisp/files.el +++ b/lisp/files.el @@ -3249,6 +3249,7 @@ extra checks should be done." (let ((case-fold-search t)) (assoc-default name alist 'string-match)))))) (if (and mode + (not (functionp mode)) (consp mode) (cadr mode)) (setq mode (car mode) |