Mercurial > emacs

changeset 64367:93037e5003f9

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(dired-do-relsymlink-regexp): Add missing optional arg ARG, and use it.
author Eli Zaretskii <eliz@gnu.org>
date Sat, 16 Jul 2005 11:40:58 +0000
parents c1cb0b064667
children 6a9bf2088665
files lisp/dired-x.el
diffstat 1 files changed, 2 insertions(+), 2 deletions(-) [+]
line wrap: on
line diff
--- 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.