From: João Távora <joaotavora@gmail.com>
Date: Wed, 26 May 2021 14:23:29 +0000 (+0100)
Subject: Hard code an exception to "node_modules" directores
X-Git-Tag: emacs-29.0.90~1616^2~524^2~4^2~132
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=02dc70363120beb28e770a872ab3960fb0920fa0;p=emacs.git

Hard code an exception to "node_modules" directores

* eglot.el (eglot--directories-recursively): Fix.

GitHub-reference: per https://github.com/joaotavora/eglot/issues/697
GitHub-reference: per https://github.com/joaotavora/eglot/issues/645
---

diff --git a/lisp/progmodes/eglot.el b/lisp/progmodes/eglot.el
index 706fa92522e..4c47ad004bb 100644
--- a/lisp/progmodes/eglot.el
+++ b/lisp/progmodes/eglot.el
@@ -2884,7 +2884,7 @@ If NOERROR, return predicate, else erroring function."
         (cl-loop with default-directory = dir
                  with completion-regexp-list = '("^[^.]")
                  for f in (file-name-all-completions "" dir)
-                 if (file-directory-p f)
+                 if (and (file-directory-p f) (not (string= "node_modules/" f)))
                  append (eglot--directories-recursively f))))