diff options
| author | Eli Zaretskii <eliz@gnu.org> | 2005-07-16 11:40:58 +0000 |
|---|---|---|
| committer | Eli Zaretskii <eliz@gnu.org> | 2005-07-16 11:40:58 +0000 |
| commit | d8e396ce5f1dc4b0cf14ceebfd33f91627c2a18d (patch) | |
| tree | 8a8e10d0c3476be599cc463727b5d2d8e5486df1 /lisp/dired-x.el | |
| parent | eb383a928510e984a967d35f8d96a4fe4cf55e51 (diff) | |
| download | emacs-d8e396ce5f1dc4b0cf14ceebfd33f91627c2a18d.tar.gz | |
(dired-do-relsymlink-regexp): Add missing optional arg ARG, and use it.
Diffstat (limited to 'lisp/dired-x.el')
| -rw-r--r-- | lisp/dired-x.el | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lisp/dired-x.el b/lisp/dired-x.el index 42df15b47d2..1c14101827a 100644 --- a/lisp/dired-x.el +++ b/lisp/dired-x.el @@ -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. |