mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-15 17:00:26 +00:00
Code Issues Releases Activity

(dired-do-relsymlink-regexp): Add missing optional arg ARG, and use it.

Browse Source
This commit is contained in:
Eli Zaretskii 2005-07-16 11:40:58 +00:00
parent eb383a9285
commit d8e396ce5f
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
lisp/dired-x.el
View File

@ -1223,14 +1223,14 @@ not absolute ones like
(dired-do-create-files 'relsymlink (function dired-make-relative-symlink)
"RelSymLink" arg dired-keep-marker-relsymlink))
(defun dired-do-relsymlink-regexp (regexp newname &optional whole-name)
(defun dired-do-relsymlink-regexp (regexp newname &optional arg whole-name)
"RelSymlink all marked files containing REGEXP to NEWNAME.
See functions `dired-do-rename-regexp' and `dired-do-relsymlink'
for more info."
(interactive (dired-mark-read-regexp "RelSymLink"))
(dired-do-create-files-regexp
(function dired-make-relative-symlink)
"RelSymLink" nil regexp newname whole-name dired-keep-marker-relsymlink))
"RelSymLink" arg regexp newname whole-name dired-keep-marker-relsymlink))
;;; VISIT ALL MARKED FILES SIMULTANEOUSLY.