(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)