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 |