master bd6b64e0a88: * lisp/progmodes/project.el: Don't run modes from .dir-locals.el.

[Juri Linkov]

branch: master
commit bd6b64e0a8856a735b484f0482af0e937eb585d3
Author: Juri Linkov <juri@linkov.net>
Commit: Juri Linkov <juri@linkov.net>

    * lisp/progmodes/project.el: Don't run modes from .dir-locals.el.
    
    (project--value-in-dir): Use 'alist-get' on 'file-local-variables-alist'
    to avoid calling 'hack-local-variables-apply' via
    'hack-dir-local-variables-non-file-buffer' because it might enable
    undesirable modes such as flyspell-mode in a temporary buffer (bug#69740).
---
 lisp/progmodes/project.el | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/lisp/progmodes/project.el b/lisp/progmodes/project.el
index 4284ea6edc6..a7c164f5857 100644
--- a/lisp/progmodes/project.el
+++ b/lisp/progmodes/project.el
@@ -808,8 +808,9 @@ DIRS must contain directory names."
   (with-temp-buffer
     (setq default-directory dir)
     (let ((enable-local-variables :all))
-      (hack-dir-local-variables-non-file-buffer))
-    (symbol-value var)))
+      (hack-dir-local-variables))
+    ;; Don't use `hack-local-variables-apply' to avoid setting modes.
+    (alist-get var file-local-variables-alist)))
 
 (cl-defmethod project-buffers ((project (head vc)))
   (let* ((root (expand-file-name (file-name-as-directory (project-root 
project))))