]> git.eshelyaron.com Git - emacs.git/commitdiff
Drop newly added 'dired-yank'
authorEshel Yaron <me@eshelyaron.com>
Thu, 24 Oct 2024 12:05:38 +0000 (14:05 +0200)
committerEshel Yaron <me@eshelyaron.com>
Thu, 24 Oct 2024 12:05:38 +0000 (14:05 +0200)
lisp/dired-aux.el

index 47caba6fe9754f00f3a8b7959c442ebaebc63433..1be8b9334bdc96333e1d6c1f86bcd31ab4b001db 100644 (file)
@@ -3992,18 +3992,6 @@ case, the VERBOSE argument is ignored."
         (setq model (vc-checkout-model backend only-files-list))))
     (list backend files only-files-list state model)))
 
-;;;###autoload
-(defun dired-yank (target)
-  (interactive (list (dired-current-directory)) dired-mode)
-  (let ((files (split-string-and-unquote (current-kill 0))))
-    (dolist (file files)
-      (unless (file-name-absolute-p file)
-        (user-error "Found non-filename in top of kill-ring"))
-      (message "Pasting file %s..." file)
-      (dired-copy-file file target 0)
-      (dired-add-file (expand-file-name (file-name-nondirectory file)) dired-marker-char))
-    (message "Pasted %d files from clipboard" (length dired-clipboard))))
-
 \f
 (provide 'dired-aux)