From: Eli Zaretskii <eliz@gnu.org>
Date: Sat, 16 Jul 2005 11:40:58 +0000 (+0000)
Subject: (dired-do-relsymlink-regexp): Add missing optional arg ARG, and use it.
X-Git-Tag: emacs-pretest-22.0.90~8110
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=d8e396ce5f1dc4b0cf14ceebfd33f91627c2a18d;p=emacs.git

(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 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.