From: Eshel Yaron 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)