diff options
| author | Luc Teirlinck | 2005-04-04 23:58:11 +0000 |
|---|---|---|
| committer | Luc Teirlinck | 2005-04-04 23:58:11 +0000 |
| commit | afda991974fc3fb529eab26a84feaa7d4ffb9809 (patch) | |
| tree | 0477c51b7003d0821d122e0c36c9587418cd3b0a | |
| parent | 9da11852cda9e0f41b91c1c45356ec9185c6174c (diff) | |
| download | emacs-afda991974fc3fb529eab26a84feaa7d4ffb9809.tar.gz emacs-afda991974fc3fb529eab26a84feaa7d4ffb9809.zip | |
(dired-copy-filename-as-kill): Make `-' arg behave like `-1'. Doc fix.
| -rw-r--r-- | lisp/dired.el | 16 |
1 files changed, 9 insertions, 7 deletions
diff --git a/lisp/dired.el b/lisp/dired.el index 8ee19486a7e..d709b9f89e8 100644 --- a/lisp/dired.el +++ b/lisp/dired.el | |||
| @@ -1937,10 +1937,11 @@ Return the position of the beginning of the filename, or nil if none found." | |||
| 1937 | "Copy names of marked (or next ARG) files into the kill ring. | 1937 | "Copy names of marked (or next ARG) files into the kill ring. |
| 1938 | The names are separated by a space. | 1938 | The names are separated by a space. |
| 1939 | With a zero prefix arg, use the absolute file name of each marked file. | 1939 | With a zero prefix arg, use the absolute file name of each marked file. |
| 1940 | With \\[universal-argument], use the file name sans directory of each marked file. | 1940 | With \\[universal-argument], use the file name relative to the Dired buffer's |
| 1941 | `default-directory'. (This still may contain slashes if in a subdirectory.) | ||
| 1941 | 1942 | ||
| 1942 | If on a subdir headerline, use subdirname instead; prefix arg is ignored | 1943 | If on a subdir headerline, use absolute subdirname instead; |
| 1943 | in this case. | 1944 | prefix arg and marked files are ignored in this case. |
| 1944 | 1945 | ||
| 1945 | You can then feed the file name(s) to other commands with \\[yank]." | 1946 | You can then feed the file name(s) to other commands with \\[yank]." |
| 1946 | (interactive "P") | 1947 | (interactive "P") |
| @@ -1950,10 +1951,11 @@ You can then feed the file name(s) to other commands with \\[yank]." | |||
| 1950 | (if arg | 1951 | (if arg |
| 1951 | (cond ((zerop (prefix-numeric-value arg)) | 1952 | (cond ((zerop (prefix-numeric-value arg)) |
| 1952 | (dired-get-marked-files)) | 1953 | (dired-get-marked-files)) |
| 1953 | ((integerp arg) | 1954 | ((consp arg) |
| 1954 | (dired-get-marked-files 'no-dir arg)) | 1955 | (dired-get-marked-files t)) |
| 1955 | (t ; else a raw arg | 1956 | (t |
| 1956 | (dired-get-marked-files t))) | 1957 | (dired-get-marked-files |
| 1958 | 'no-dir (prefix-numeric-value arg)))) | ||
| 1957 | (dired-get-marked-files 'no-dir)) | 1959 | (dired-get-marked-files 'no-dir)) |
| 1958 | " ")))) | 1960 | " ")))) |
| 1959 | (if (eq last-command 'kill-region) | 1961 | (if (eq last-command 'kill-region) |