Mercurial > emacs
comparison lisp/dired-aux.el @ 24456:c79fbd7d8162
(dired-do-copy-regexp): Doc fix.
(dired-do-hardlink-regexp, dired-do-symlink-regexp): Doc fix.
| author | Karl Heuer <kwzh@gnu.org> |
|---|---|
| date | Tue, 09 Mar 1999 03:09:39 +0000 |
| parents | f7b7887cb90f |
| children | 8c5bc687c346 |
comparison
equal
deleted
inserted
replaced
| 24455:013e22e5d30c | 24456:c79fbd7d8162 |
|---|---|
| 1380 "Rename" arg regexp newname whole-path dired-keep-marker-rename)) | 1380 "Rename" arg regexp newname whole-path dired-keep-marker-rename)) |
| 1381 | 1381 |
| 1382 ;;;###autoload | 1382 ;;;###autoload |
| 1383 (defun dired-do-copy-regexp (regexp newname &optional arg whole-path) | 1383 (defun dired-do-copy-regexp (regexp newname &optional arg whole-path) |
| 1384 "Copy all marked files containing REGEXP to NEWNAME. | 1384 "Copy all marked files containing REGEXP to NEWNAME. |
| 1385 See function `dired-rename-regexp' for more info." | 1385 See function `dired-do-rename-regexp' for more info." |
| 1386 (interactive (dired-mark-read-regexp "Copy")) | 1386 (interactive (dired-mark-read-regexp "Copy")) |
| 1387 (dired-do-create-files-regexp | 1387 (dired-do-create-files-regexp |
| 1388 (function dired-copy-file) | 1388 (function dired-copy-file) |
| 1389 (if dired-copy-preserve-time "Copy [-p]" "Copy") | 1389 (if dired-copy-preserve-time "Copy [-p]" "Copy") |
| 1390 arg regexp newname whole-path dired-keep-marker-copy)) | 1390 arg regexp newname whole-path dired-keep-marker-copy)) |
| 1391 | 1391 |
| 1392 ;;;###autoload | 1392 ;;;###autoload |
| 1393 (defun dired-do-hardlink-regexp (regexp newname &optional arg whole-path) | 1393 (defun dired-do-hardlink-regexp (regexp newname &optional arg whole-path) |
| 1394 "Hardlink all marked files containing REGEXP to NEWNAME. | 1394 "Hardlink all marked files containing REGEXP to NEWNAME. |
| 1395 See function `dired-rename-regexp' for more info." | 1395 See function `dired-do-rename-regexp' for more info." |
| 1396 (interactive (dired-mark-read-regexp "HardLink")) | 1396 (interactive (dired-mark-read-regexp "HardLink")) |
| 1397 (dired-do-create-files-regexp | 1397 (dired-do-create-files-regexp |
| 1398 (function add-name-to-file) | 1398 (function add-name-to-file) |
| 1399 "HardLink" arg regexp newname whole-path dired-keep-marker-hardlink)) | 1399 "HardLink" arg regexp newname whole-path dired-keep-marker-hardlink)) |
| 1400 | 1400 |
| 1401 ;;;###autoload | 1401 ;;;###autoload |
| 1402 (defun dired-do-symlink-regexp (regexp newname &optional arg whole-path) | 1402 (defun dired-do-symlink-regexp (regexp newname &optional arg whole-path) |
| 1403 "Symlink all marked files containing REGEXP to NEWNAME. | 1403 "Symlink all marked files containing REGEXP to NEWNAME. |
| 1404 See function `dired-rename-regexp' for more info." | 1404 See function `dired-do-rename-regexp' for more info." |
| 1405 (interactive (dired-mark-read-regexp "SymLink")) | 1405 (interactive (dired-mark-read-regexp "SymLink")) |
| 1406 (dired-do-create-files-regexp | 1406 (dired-do-create-files-regexp |
| 1407 (function make-symbolic-link) | 1407 (function make-symbolic-link) |
| 1408 "SymLink" arg regexp newname whole-path dired-keep-marker-symlink)) | 1408 "SymLink" arg regexp newname whole-path dired-keep-marker-symlink)) |
| 1409 | 1409 |