mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-12-26 10:49:33 +00:00
Code Issues Releases Activity

(dired-do-rename-regexp, dired-do-copy-regexp)

Browse Source 
(dired-do-hardlink-regexp, dired-do-symlink-regexp): Doc fix.
This commit is contained in:
Eli Zaretskii 2001-04-30 13:37:00 +00:00
parent 4691d21ee4
commit 2b3e941a39
2 changed files with 14 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
lisp/ChangeLog
View File

@ -1,3 +1,8 @@
2001-04-30 Eli Zaretskii <eliz@is.elta.co.il>
* dired-aux.el (dired-do-rename-regexp, dired-do-copy-regexp)
(dired-do-hardlink-regexp, dired-do-symlink-regexp): Doc fix.
2001-04-30 Gerd Moellmann <gerd@gnu.org>
* mail/rmail.el (rmail-message-regexp-p): Yet another fix.

13
lisp/dired-aux.el
View File

@ -1466,7 +1466,12 @@ Type SPC or `y' to %s one match, DEL or `n' to skip to next,
;;;###autoload
(defun dired-do-rename-regexp (regexp newname &optional arg whole-path)
"Rename marked files containing REGEXP to NEWNAME.
"Rename selected files whose names match REGEXP to NEWNAME.
With non-zero prefix argument ARG, the command operates on the next ARG
files. Otherwise, it operates on all the marked files, or the current
file if none are marked.
As each match is found, the user must type a character saying
what to do with it. For directions, type \\[help-command] at that time.
NEWNAME may contain \\=\\<n> or \\& as in `query-replace-regexp'.
@ -1481,7 +1486,7 @@ Normally, only the non-directory part of the file name is used and changed."
;;;###autoload
(defun dired-do-copy-regexp (regexp newname &optional arg whole-path)
"Copy all marked files containing REGEXP to NEWNAME.
"Copy selected files whose names match REGEXP to NEWNAME.
See function `dired-do-rename-regexp' for more info."
(interactive (dired-mark-read-regexp "Copy"))
(let ((dired-recursive-copies nil)) ; No recursive copies.
@ -1492,7 +1497,7 @@ See function `dired-do-rename-regexp' for more info."
;;;###autoload
(defun dired-do-hardlink-regexp (regexp newname &optional arg whole-path)
"Hardlink all marked files containing REGEXP to NEWNAME.
"Hardlink selected files whose names match REGEXP to NEWNAME.
See function `dired-do-rename-regexp' for more info."
(interactive (dired-mark-read-regexp "HardLink"))
(dired-do-create-files-regexp
@ -1501,7 +1506,7 @@ See function `dired-do-rename-regexp' for more info."
;;;###autoload
(defun dired-do-symlink-regexp (regexp newname &optional arg whole-path)
"Symlink all marked files containing REGEXP to NEWNAME.
"Symlink selected files whose names match REGEXP to NEWNAME.
See function `dired-do-rename-regexp' for more info."
(interactive (dired-mark-read-regexp "SymLink"))
(dired-do-create-files-regexp