emacs-diffs
[Top][All Lists]
Advanced

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

master 32ed6e610f4: (project-switch-project): Fix the previous change


From: Dmitry Gutov
Subject: master 32ed6e610f4: (project-switch-project): Fix the previous change
Date: Wed, 1 Nov 2023 16:50:28 -0400 (EDT)

branch: master
commit 32ed6e610f4a29a6adebc89a7b37d1b4beb54ec1
Author: Dmitry Gutov <dmitry@gutov.dev>
Commit: Dmitry Gutov <dmitry@gutov.dev>

    (project-switch-project): Fix the previous change
    
    * lisp/progmodes/project.el (project-switch-project):
    Clear the buffer-local value in the right buffer (bug#66317).
---
 lisp/progmodes/project.el | 6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

diff --git a/lisp/progmodes/project.el b/lisp/progmodes/project.el
index 5129dc98b82..57d9d8e99ab 100644
--- a/lisp/progmodes/project.el
+++ b/lisp/progmodes/project.el
@@ -2029,12 +2029,14 @@ to directory DIR."
   (interactive (list (funcall project-prompter)))
   (let ((command (if (symbolp project-switch-commands)
                      project-switch-commands
-                   (project--switch-project-command))))
+                   (project--switch-project-command)))
+        (buffer (current-buffer)))
     (unwind-protect
         (progn
           (setq-local project-current-directory-override dir)
           (call-interactively command))
-      (kill-local-variable 'project-current-directory-override))))
+      (with-current-buffer buffer
+        (kill-local-variable 'project-current-directory-override)))))
 
 ;;;###autoload
 (defun project-uniquify-dirname-transform (dirname)



reply via email to

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