From 34630d66e173520221d918cb461346d3adad05be Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Mon, 17 Dec 2001 01:55:53 +0000 Subject: [PATCH] (dired-copy-filename-as-kill): Moved to dired.el. --- lisp/dired-x.el | 29 ----------------------------- 1 file changed, 29 deletions(-) diff --git a/lisp/dired-x.el b/lisp/dired-x.el index a68772491bb..dd807934063 100644 --- a/lisp/dired-x.el +++ b/lisp/dired-x.el @@ -460,35 +460,6 @@ buffer and try again." (interactive) (dired-jump t)) -;;; COPY NAMES OF MARKED FILES INTO KILL-RING. - -(defun dired-copy-filename-as-kill (&optional arg) - "Copy names of marked (or next ARG) files into the kill ring. -The names are separated by a space. -With a zero prefix arg, use the complete pathname of each marked file. -With \\[universal-argument], use the relative pathname of each marked file. - -If on a subdir headerline, use subdirname instead; prefix arg is ignored -in this case. - -You can then feed the file name(s) to other commands with \\[yank]." - (interactive "P") - (let ((string - (or (dired-get-subdir) - (mapconcat (function identity) - (if arg - (cond ((zerop (prefix-numeric-value arg)) - (dired-get-marked-files)) - ((integerp arg) - (dired-get-marked-files 'no-dir arg)) - (t ; else a raw arg - (dired-get-marked-files t))) - (dired-get-marked-files 'no-dir)) - " ")))) - (kill-new string) - (message "%s" string))) - - ;;; OMITTING. ;;; Enhanced omitting of lines from directory listings. -- 2.39.5