master ffb0e8c4ef: Make anonymous functions work in auto-mode-alist

[Lars Ingebrigtsen]

branch: master
commit ffb0e8c4eff43a31bfb95eaf8b9db9d3c400e5ae
Author: Lars Ingebrigtsen <larsi@gnus.org>
Commit: Lars Ingebrigtsen <larsi@gnus.org>

    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).
---
 lisp/files.el | 1 +
 1 file changed, 1 insertion(+)

diff --git a/lisp/files.el b/lisp/files.el
index e021545cf1..aabe8f445e 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)