[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] master 53fccc5 175/187: Rename buffers after renaming (#56).
From: |
Michael Albinus |
Subject: |
[elpa] master 53fccc5 175/187: Rename buffers after renaming (#56). |
Date: |
Wed, 30 Dec 2015 11:50:30 +0000 |
branch: master
commit 53fccc52eefd0a50eb39274e8935be80d3affc44
Author: Thierry Volpiatto <address@hidden>
Commit: Thierry Volpiatto <address@hidden>
Rename buffers after renaming (#56).
---
dired-async.el | 17 ++++++++++++-----
1 files changed, 12 insertions(+), 5 deletions(-)
diff --git a/dired-async.el b/dired-async.el
index c007751..6827b0f 100644
--- a/dired-async.el
+++ b/dired-async.el
@@ -151,10 +151,10 @@ Should take same args as `message'."
See `dired-create-files' for the behavior of arguments."
(setq dired-async-operation nil)
- (let (dired-create-files-failures failures async-fn-list
- skipped (success-count 0) (total (length
fn-list))
- (callback `(lambda (&optional ignore)
-
(dired-async-after-file-create ,(length fn-list)))))
+ (let (dired-create-files-failures
+ failures async-fn-list
+ skipped (success-count 0) (total (length fn-list))
+ callback)
(let (to overwrite-query
overwrite-backup-query) ; for dired-handle-overwrite
(dolist (from fn-list)
@@ -215,7 +215,14 @@ ESC or `q' to not overwrite any of the remaining files,
(push (dired-make-relative from) failures)
(dired-log "%s `%s' to `%s' failed"
operation from to)))
- (push (cons from to) async-fn-list))))))
+ (push (cons from to) async-fn-list)))))
+ (setq callback
+ `(lambda (&optional ignore)
+ (dired-async-after-file-create ,(length fn-list))
+ (cl-loop for (file . to) in ',async-fn-list
+ do (and (get-file-buffer file)
+ (with-current-buffer (get-file-buffer file)
+ (set-visited-file-name to nil t)))))))
;; Handle error happening in host emacs.
(cond
(dired-create-files-failures
- [elpa] master 8c0cc0f 160/187: Add magit to async-bytecomp-allowed-package., (continued)
- [elpa] master 8c0cc0f 160/187: Add magit to async-bytecomp-allowed-package., Michael Albinus, 2015/12/30
- [elpa] master 0b60259 163/187: Check if package-archive-contents is populated (#51)., Michael Albinus, 2015/12/30
- [elpa] master 1794ea4 182/187: async-start is now a function (#43)., Michael Albinus, 2015/12/30
- [elpa] master 8bb464f 170/187: Add melpa badges to README., Michael Albinus, 2015/12/30
- [elpa] master 1ddb3a0 169/187: Add to load-path and load only async., Michael Albinus, 2015/12/30
- [elpa] master 3248303 174/187: Merge pull request #55 from syohex/correct-header, Michael Albinus, 2015/12/30
- [elpa] master 5c61408 179/187: Update version in *pkg.el file., Michael Albinus, 2015/12/30
- [elpa] master 1f12717 178/187: Don't recompute length fn-list, ensure operation is downcased for safety (#57)., Michael Albinus, 2015/12/30
- [elpa] master 57257f0 167/187: Merge branch 'master' of github.com:jwiegley/emacs-async, Michael Albinus, 2015/12/30
- [elpa] master 128eb83 171/187: Fix pkg file and instructions in dired-async., Michael Albinus, 2015/12/30
- [elpa] master 53fccc5 175/187: Rename buffers after renaming (#56).,
Michael Albinus <=
- [elpa] master ca73877 183/187: Merge pull request #57 from jwiegley/HEAD, Michael Albinus, 2015/12/30
- [elpa] master 4319ab6 177/187: Merge branch 'master' of github.com:jwiegley/emacs-async, Michael Albinus, 2015/12/30
- [elpa] master 2a40355 184/187: No need to require find-func., Michael Albinus, 2015/12/30
- [elpa] master c25bf17 180/187: Document async compilation of packages in README., Michael Albinus, 2015/12/30
- [elpa] master ef4a542 187/187: Merge branch 'master' of git://bzr.sv.gnu.org/emacs/elpa, Michael Albinus, 2015/12/30
- [elpa] master 36a21eb 181/187: Remove old require in test file., Michael Albinus, 2015/12/30
- [elpa] master b375440 186/187: Add subtree package async, Michael Albinus, 2015/12/30
- [elpa] master 4e44885 185/187: Add 'packages/async/' from commit '2a40355c3328e57102a9648c9108e19d67727dc1', Michael Albinus, 2015/12/30