From: Sean Whitton <spwhitton@spwhitton.name>
Date: Mon, 10 Mar 2025 09:08:04 +0000 (+0800)
Subject: vc-setup-buffer: Kill local file-local-variables-alist too
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=5abe9a343678e5c7eb0122f43783db1930c3120c;p=emacs.git

vc-setup-buffer: Kill local file-local-variables-alist too

* lisp/vc/vc-dispatcher.el (vc-setup-buffer): Kill
file-local-variables-alist variable, too (bug#44698).
* lisp/vc/vc.el (vc-log-internal-common): Don't call
kill-all-local-variables here, that's vc-setup-buffer's job.

(cherry picked from commit e09a80143d5952b1d1d1ade2b0f2e217835e917d)
---

diff --git a/lisp/vc/vc-dispatcher.el b/lisp/vc/vc-dispatcher.el
index 701936e5485..38782d8a583 100644
--- a/lisp/vc/vc-dispatcher.el
+++ b/lisp/vc/vc-dispatcher.el
@@ -186,6 +186,9 @@ Another is that undo information is not kept."
       ;; want any of its output to appear from now on.
       (when oldproc (delete-process oldproc)))
     (kill-all-local-variables)
+    ;; Kill also this permanent local var in case the VC command that
+    ;; created BUF was invoked from a different directory (bug#44698).
+    (kill-local-variable 'file-local-variables-alist)
     (setq-local vc-parent-buffer camefrom)
     (setq-local vc-parent-buffer-name
                 (concat " from " (buffer-name camefrom)))
diff --git a/lisp/vc/vc.el b/lisp/vc/vc.el
index 7479702df7e..a2bd24a2042 100644
--- a/lisp/vc/vc.el
+++ b/lisp/vc/vc.el
@@ -2988,9 +2988,6 @@ Each function runs in the log output buffer without args.")
 			       rev-buff-func)
   (let (retval (buffer (get-buffer-create buffer-name)))
     (with-current-buffer buffer
-      ;; Ensure we drop any directory-local variables from the last
-      ;; directory from which a log buffer was generated (bug#44698).
-      (kill-all-local-variables 'kill-permanent)
       (setq-local vc-log-view-type type))
     (setq retval (funcall backend-func backend buffer-name type files))
     (with-current-buffer buffer