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)
This commit is contained in:
Michael Albinus 2025-03-27 17:48:20 +01:00
parent f22af15aef
commit 37b8acf378

View file

@ -4715,6 +4715,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