master 835295381b: project-switch-project: Avoid altering default-directory in cb

[Dmitry Gutov]

branch: master
commit 835295381bdee3d517c7ee243a22640c78783a9f
Author: Dmitry Gutov <dgutov@yandex.ru>
Commit: Dmitry Gutov <dgutov@yandex.ru>

    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).
---
 lisp/progmodes/project.el | 7 ++++---
 1 file changed, 4 insertions(+), 3 deletions(-)

diff --git a/lisp/progmodes/project.el b/lisp/progmodes/project.el
index ac278edd40..0aa7955c65 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