[Emacs-diffs] Changes to emacs/lisp/dired-x.el

[Richard M. Stallman]

Index: emacs/lisp/dired-x.el
diff -c emacs/lisp/dired-x.el:1.42 emacs/lisp/dired-x.el:1.43
*** emacs/lisp/dired-x.el:1.42  Mon Oct 29 06:39:24 2001
--- emacs/lisp/dired-x.el       Sun Dec 16 20:55:53 2001
***************
*** 460,494 ****
    (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.
--- 460,465 ----