[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
master 099caac: * lisp/dired-aux.el (dired-do-revert-buffer): New defcus
From: |
Juri Linkov |
Subject: |
master 099caac: * lisp/dired-aux.el (dired-do-revert-buffer): New defcustom (bug#48456). |
Date: |
Fri, 21 May 2021 14:32:01 -0400 (EDT) |
branch: master
commit 099caace34867a716224eeba5b9901373b06df28
Author: Juri Linkov <juri@linkov.net>
Commit: Juri Linkov <juri@linkov.net>
* lisp/dired-aux.el (dired-do-revert-buffer): New defcustom (bug#48456).
(dired-do-create-files): Use it.
---
etc/NEWS | 5 +++++
lisp/dired-aux.el | 26 +++++++++++++++++++++++++-
2 files changed, 30 insertions(+), 1 deletion(-)
diff --git a/etc/NEWS b/etc/NEWS
index 693d0c0..acd7899 100644
--- a/etc/NEWS
+++ b/etc/NEWS
@@ -748,6 +748,11 @@ If set to non-nil, Dired will dereference symbolic links
when copying.
This can be switched off on a per-usage basis by providing
'dired-do-copy' with a 'C-u' prefix.
+*** New user option 'dired-do-revert-buffer'.
+Non-nil reverts the destination Dired buffer after preforming one
+of these operations: 'dired-do-copy', 'dired-do-rename',
+'dired-do-symlink', 'dired-do-hardlink'.
+
*** New user option 'dired-mark-region' affects all Dired commands
that mark files. When non-nil and the region is active in Transient
Mark mode, then Dired commands operate only on files in the active
diff --git a/lisp/dired-aux.el b/lisp/dired-aux.el
index d57237f..0ac4e54 100644
--- a/lisp/dired-aux.el
+++ b/lisp/dired-aux.el
@@ -2065,6 +2065,25 @@ ESC or `q' to not overwrite any of the remaining files,
operation success-count))))
(dired-move-to-filename))
+(defcustom dired-do-revert-buffer nil
+ "Automatically revert Dired buffers after `dired-do' operations.
+This option controls whether to refresh the directory listing in a
+Dired buffer that is the destination of one of these operations:
+`dired-do-copy', `dired-do-rename', `dired-do-symlink', `dired-do-hardlink'.
+If the value is t, always revert the Dired buffer updated in the result
+of these operations.
+If the value is a function, it is called with the destination directory name
+as a single argument, and the buffer is reverted after Dired operations
+if the function returns non-nil."
+ :type '(choice
+ (const :tag "Don't revert" nil)
+ (const :tag "Always revert destination directory" t)
+ (const :tag "Revert only local Dired buffers"
+ (lambda (dir) (not (file-remote-p dir))))
+ (function :tag "Predicate function"))
+ :group 'dired
+ :version "28.1")
+
(defun dired-do-create-files (op-symbol file-creator operation arg
&optional marker-char op1
how-to)
@@ -2168,7 +2187,12 @@ Optional arg HOW-TO determines how to treat the target.
(lambda (from)
(expand-file-name (file-name-nondirectory from) target))
(lambda (_from) target))
- marker-char))))
+ marker-char)
+ (when (or (eq dired-do-revert-buffer t)
+ (and (functionp dired-do-revert-buffer)
+ (funcall dired-do-revert-buffer target)))
+ (dired-fun-in-all-buffers (file-name-directory target) nil
+ #'revert-buffer)))))
;; Read arguments for a marked-files command that wants a file name,
;; perhaps popping up the list of marked files.
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- master 099caac: * lisp/dired-aux.el (dired-do-revert-buffer): New defcustom (bug#48456).,
Juri Linkov <=