From: Eshel Yaron <me@eshelyaron.com>
Date: Thu, 24 Oct 2024 12:05:38 +0000 (+0200)
Subject: Drop newly added 'dired-yank'
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=75c54647922705e075d72bcd2e85e8ba59dc3d70;p=emacs.git

Drop newly added 'dired-yank'
---

diff --git a/lisp/dired-aux.el b/lisp/dired-aux.el
index 47caba6fe97..1be8b9334bd 100644
--- a/lisp/dired-aux.el
+++ b/lisp/dired-aux.el
@@ -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))))
-
 
 (provide 'dired-aux)