[Top][All Lists]

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

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

From: João Távora
Subject: [elpa] externals/eglot 68c266e 45/69: Avoid more catastrophes
Date: Fri, 22 Jun 2018 11:55:01 -0400 (EDT)

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
 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)
         (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))

reply via email to

[Prev in Thread] Current Thread [Next in Thread]