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