Only override the current project buffer-locally

* lisp/progmodes/project.el (project-switch-project): Only
override the current project buffer-locally.  This is mostly for
the the mode-line indicator (https://debbugs.gnu.org/66317#53).

diff --git a/lisp/progmodes/project.el b/lisp/progmodes/project.el
index 76c5144b4848c577a94d1beb57e3d6519fe82af3..5129dc98b82a26ce1623bd3d6496e79881add21b 100644 (file)
--- a/lisp/progmodes/project.el
+++ b/lisp/progmodes/project.el
@@ -2030,8 +2030,11 @@ to directory DIR."
   (let ((command (if (symbolp project-switch-commands)
                      project-switch-commands
                    (project--switch-project-command))))
-    (let ((project-current-directory-override dir))
-      (call-interactively command))))
+    (unwind-protect
+        (progn
+          (setq-local project-current-directory-override dir)
+          (call-interactively command))
+      (kill-local-variable 'project-current-directory-override))))
 
 ;;;###autoload
 (defun project-uniquify-dirname-transform (dirname)