# HG changeset patch
# User Eli Zaretskii <eliz@gnu.org>
# Date 1121514058 0
# Node ID 93037e5003f9634d1eee318795374df57ff24fb1
# Parent  c1cb0b064667cc4af9dbeee6e494d7d1acf51da6
(dired-do-relsymlink-regexp): Add missing optional arg ARG, and use it.

diff -r c1cb0b064667 -r 93037e5003f9 lisp/dired-x.el
--- a/lisp/dired-x.el	Sat Jul 16 11:37:11 2005 +0000
+++ b/lisp/dired-x.el	Sat Jul 16 11:40:58 2005 +0000
@@ -1223,14 +1223,14 @@
   (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.