branch: elpa-admin
commit 6d923b905db1eb3beed57d20e5043a5fa9a5d8bb
Author: Stefan Monnier <monn...@iro.umontreal.ca>
Commit: Stefan Monnier <monn...@iro.umontreal.ca>
* elpa-admin.el (elpaa--prune-old-tarballs): Fix renaming destination
---
elpa-admin.el | 3 ++-
1 file changed, 2 insertions(+), 1 deletion(-)
diff --git a/elpa-admin.el b/elpa-admin.el
index 61265eb..5cb3d26 100644
--- a/elpa-admin.el
+++ b/elpa-admin.el
@@ -446,7 +446,8 @@ Do it without leaving the current branch."
(mvfun (lambda (f)
(let ((src (expand-file-name f destdir)))
(when (file-exists-p src)
- (rename-file src (expand-file-name
olddir)))))))
+ (rename-file src
+ (expand-file-name f olddir)))))))
(make-directory olddir t)
(funcall mvfun filename)
(funcall mvfun sig))))
