From: Michael Albinus <michael.albinus@gmx.de>
Date: Thu, 27 Mar 2025 16:48:20 +0000 (+0100)
Subject: Handle better changed default-directory in shell-command
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=dfb422677182217889f02b7bcc05d12eedd70976;p=emacs.git

Handle better changed default-directory in shell-command

* lisp/simple.el (shell-command): Kill buffer-local values of
`shell-file-name' and `shell-command-switch', there could be left
connection-local values.  (Bug#76888)

(cherry picked from commit 37b8acf3781a65d397a946f621893b07a0960de0)
---

diff --git a/lisp/simple.el b/lisp/simple.el
index 621446b929c..10eeba4ba45 100644
--- a/lisp/simple.el
+++ b/lisp/simple.el
@@ -4604,6 +4604,9 @@ impose the use of a shell (with its need to quote arguments)."
 	      (with-current-buffer buffer
                 (shell-command-save-pos-or-erase)
 		(setq default-directory directory)
+                ;; There could be left connection-local values.  (Bug#76888)
+                (kill-local-variable 'shell-file-name)
+                (kill-local-variable 'shell-command-switch)
                 (require 'shell)
                 (let ((process-environment
                        (append