From d8e396ce5f1dc4b0cf14ceebfd33f91627c2a18d Mon Sep 17 00:00:00 2001 From: Eli Zaretskii Date: Sat, 16 Jul 2005 11:40:58 +0000 Subject: [PATCH] (dired-do-relsymlink-regexp): Add missing optional arg ARG, and use it. --- lisp/dired-x.el | 4 ++-- 1 file 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. -- 2.39.2