Mercurial > emacs

changeset 42099:fbcd9b643c57

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(dired-copy-filename-as-kill): Moved to dired.el.
author Richard M. Stallman <rms@gnu.org>
date Mon, 17 Dec 2001 01:55:53 +0000
parents cb264cdcb899
children eb27208de620
files lisp/dired-x.el
diffstat 1 files changed, 0 insertions(+), 29 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/dired-x.el	Mon Dec 17 01:52:01 2001 +0000
+++ b/lisp/dired-x.el	Mon Dec 17 01:55:53 2001 +0000
@@ -460,35 +460,6 @@
   (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.