[elpa] externals/eglot 68c266e 45/69: Avoid more catastrophes

[João Távora]

branch: externals/eglot
commit 68c266e7e597c3fd91d2b32aed97cbe67aad859d
Author: João Távora <address@hidden>
Commit: João Távora <address@hidden>

    Avoid more catastrophes
    
    * eglot-tests.el (eglot--call-with-dirs-and-files): Use a
    fixture-directory.
---
 eglot-tests.el | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/eglot-tests.el b/eglot-tests.el
index bd9e2f3..a78069f 100644
--- a/eglot-tests.el
+++ b/eglot-tests.el
@@ -50,7 +50,8 @@
            (message "[yas] oops don't know this content")))))
 
 (defun eglot--call-with-dirs-and-files (dirs fn)
-  (let* ((default-directory (make-temp-file "eglot--fixture" t))
+  (let* ((fixture-directory (make-temp-file "eglot--fixture" t))
+         (default-directory fixture-directory)
          new-buffers new-servers)
     (unwind-protect
         (let ((find-file-hook
@@ -72,7 +73,7 @@
         (mapc #'kill-buffer (mapcar #'jsonrpc--events-buffer new-servers))
         (dolist (buf new-buffers) ;; have to save otherwise will get prompted
           (with-current-buffer buf (save-buffer) (kill-buffer)))
-        (delete-directory default-directory 'recursive)))))
+        (delete-directory fixture-directory 'recursive)))))
 
 (cl-defmacro eglot--with-timeout (timeout &body body)
   (declare (indent 1) (debug t))