/[emacs]/emacs/lisp/dired.el
ViewVC logotype

Diff of /emacs/lisp/dired.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.214 by sds, Tue Nov 27 15:52:52 2001 UTC revision 1.215 by rms, Mon Dec 17 01:58:05 2001 UTC
# Line 962  If DIRNAME is already in a dired buffer, Line 962  If DIRNAME is already in a dired buffer,
962      (define-key map "t" 'dired-do-toggle)      (define-key map "t" 'dired-do-toggle)
963      (define-key map "u" 'dired-unmark)      (define-key map "u" 'dired-unmark)
964      (define-key map "v" 'dired-view-file)      (define-key map "v" 'dired-view-file)
965        (define-key map "w" 'dired-copy-filename-as-kill)
966      (define-key map "x" 'dired-do-flagged-delete)      (define-key map "x" 'dired-do-flagged-delete)
967      (define-key map "y" 'dired-show-file-type)      (define-key map "y" 'dired-show-file-type)
968      (define-key map "+" 'dired-create-directory)      (define-key map "+" 'dired-create-directory)
# Line 1632  regardless of the language.") Line 1633  regardless of the language.")
1633        (point))))        (point))))
1634    
1635    
1636    ;;; COPY NAMES OF MARKED FILES INTO KILL-RING.
1637    
1638    (defun dired-copy-filename-as-kill (&optional arg)
1639      "Copy names of marked (or next ARG) files into the kill ring.
1640    The names are separated by a space.
1641    With a zero prefix arg, use the complete pathname of each marked file.
1642    With \\[universal-argument], use the relative pathname of each marked file.
1643    
1644    If on a subdir headerline, use subdirname instead; prefix arg is ignored
1645    in this case.
1646    
1647    You can then feed the file name(s) to other commands with \\[yank]."
1648      (interactive "P")
1649      (let ((string
1650             (or (dired-get-subdir)
1651                 (mapconcat (function identity)
1652                            (if arg
1653                                (cond ((zerop (prefix-numeric-value arg))
1654                                       (dired-get-marked-files))
1655                                      ((integerp arg)
1656                                       (dired-get-marked-files 'no-dir arg))
1657                                      (t    ; else a raw arg
1658                                       (dired-get-marked-files t)))
1659                              (dired-get-marked-files 'no-dir))
1660                            " "))))
1661        (kill-new string)
1662        (message "%s" string)))
1663    
1664    
1665  ;; Keeping Dired buffers in sync with the filesystem and with each other  ;; Keeping Dired buffers in sync with the filesystem and with each other
1666    
1667  (defun dired-buffers-for-dir (dir &optional file)  (defun dired-buffers-for-dir (dir &optional file)

Legend:
Removed from v.1.214  
changed lines
  Added in v.1.215

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26