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

diff --git a/lisp/dired-x.el b/lisp/dired-x.el
index 42df15b47d2685925a5ee9126fb1269a227c3d5f..1c14101827a4f367bd5c40c260007a129d02b2ec 100644 (file)
--- 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))
 
 \f
 ;;; VISIT ALL MARKED FILES SIMULTANEOUSLY.