From: Dmitry Gutov <dgutov@yandex.ru>
Date: Tue, 1 Nov 2022 23:30:08 +0000 (+0200)
Subject: project-switch-project: Avoid altering default-directory in cb
X-Git-Tag: emacs-29.0.90~1616^2~352
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=835295381bdee3d517c7ee243a22640c78783a9f;p=emacs.git

project-switch-project: Avoid altering default-directory in cb

* lisp/progmodes/project.el (project-switch-project):
Avoid altering default-directory in the current buffer, even
temporarily (bug#58784).
---

diff --git a/lisp/progmodes/project.el b/lisp/progmodes/project.el
index ac278edd409..0aa7955c65e 100644
--- a/lisp/progmodes/project.el
+++ b/lisp/progmodes/project.el
@@ -1667,9 +1667,10 @@ to directory DIR."
   (let ((command (if (symbolp project-switch-commands)
                      project-switch-commands
                    (project--switch-project-command))))
-    (let ((default-directory dir)
-          (project-current-inhibit-prompt t))
-      (call-interactively command))))
+    (with-temp-buffer
+      (let ((default-directory dir)
+            (project-current-inhibit-prompt t))
+        (call-interactively command)))))
 
 (provide 'project)
 ;;; project.el ends here