dired-do-relsymlink-regexp

[Markus Rost]

In dired, I get an error with key "%Y" which runs the command
`dired-do-relsymlink-regexp' defined in dired-aux.el.  Comparison with
`dired-do-rename-regexp' defined in dired-x.el suggests the following
patch.  It seems to work fine.

2005-07-13  Markus Rost  <address@hidden>

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


===Buffer *vc-diff*=========================================
*** dired-x.el  05 Jul 2005 01:08:52 +0200      1.58
--- dired-x.el  13 Jul 2005 10:00:01 +0200      
***************
*** 1223,1236 ****
    (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)
    "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))
  
  
  ;;; VISIT ALL MARKED FILES SIMULTANEOUSLY.
--- 1223,1236 ----
    (dired-do-create-files 'relsymlink (function dired-make-relative-symlink)
                             "RelSymLink" arg dired-keep-marker-relsymlink))
  
! (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" arg regexp newname whole-name dired-keep-marker-relsymlink))
  
  
  ;;; VISIT ALL MARKED FILES SIMULTANEOUSLY.
============================================================

In GNU Emacs 22.0.50.1 (i686-pc-linux-gnu, X toolkit, Xaw3d scroll bars)
 of 2005-07-13 on yui13
X server distributor `The XFree86 Project, Inc', version 11.0.40300001
configured using `configure '--prefix=/homes/rost/local/emacs/install-cvs''