[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
master c5aec9b10d: Preserve connection-local settings in dired
From: |
Michael Albinus |
Subject: |
master c5aec9b10d: Preserve connection-local settings in dired |
Date: |
Sat, 2 Jul 2022 07:19:13 -0400 (EDT) |
branch: master
commit c5aec9b10d709b91a0188b705b653bd2a59fff2d
Author: Michael Albinus <michael.albinus@gmx.de>
Commit: Michael Albinus <michael.albinus@gmx.de>
Preserve connection-local settings in dired
* lisp/dired-aux.el (dired-shell-command):
Preserve connection-local settings. (Bug#56333)
---
lisp/dired-aux.el | 25 +++++++++++++------------
1 file changed, 13 insertions(+), 12 deletions(-)
diff --git a/lisp/dired-aux.el b/lisp/dired-aux.el
index 095f800170..c403cc5cbd 100644
--- a/lisp/dired-aux.el
+++ b/lisp/dired-aux.el
@@ -1056,18 +1056,19 @@ Return the result of `process-file' - zero for success."
(dir default-directory))
(with-current-buffer (get-buffer-create out-buffer)
(erase-buffer)
- (let* ((default-directory dir)
- (res (process-file
- shell-file-name
- nil
- t
- nil
- shell-command-switch
- cmd)))
- (dired-uncache dir)
- (unless (zerop res)
- (pop-to-buffer out-buffer))
- res))))
+ (let ((default-directory dir) res)
+ (with-connection-local-variables
+ (setq res (process-file
+ shell-file-name
+ nil
+ t
+ nil
+ shell-command-switch
+ cmd))
+ (dired-uncache dir)
+ (unless (zerop res)
+ (pop-to-buffer out-buffer))
+ res)))))
;;; Commands that delete or redisplay part of the dired buffer
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- master c5aec9b10d: Preserve connection-local settings in dired,
Michael Albinus <=