Fix copying symbolic links in eshell

* lisp/eshell/em-unix.el (eshell-shuffle-files): Don't bug out
when copying symbolic links (bug#38577).

diff --git a/lisp/eshell/em-unix.el b/lisp/eshell/em-unix.el
index fd4cd6716d2ad54adea6cb5e012b47612477d009..68aa680327855cbe61a94406b42af2e04962c358 100644 (file)
--- a/lisp/eshell/em-unix.el
+++ b/lisp/eshell/em-unix.el
@@ -439,7 +439,10 @@ Remove the DIRECTORY(ies), if they are empty.")
                       (setq link (file-symlink-p source)))
                  (progn
                    (apply 'eshell-funcalln 'make-symbolic-link
-                          link target args)
+                          link target
+                           ;; `make-symbolic-link' doesn't have
+                           ;; KEEP-TIME; just OK-IF-ALREADY-EXISTS.
+                           (list (car args)))
                    (if (eq func 'rename-file)
                        (if (and (file-directory-p source)
                                 (not (file-symlink-p source)))