[Emacs-diffs] Changes to emacs/lisp/dired-x.el

[Eli Zaretskii]

Index: emacs/lisp/dired-x.el
diff -c emacs/lisp/dired-x.el:1.58 emacs/lisp/dired-x.el:1.59
*** emacs/lisp/dired-x.el:1.58  Mon Jul  4 23:08:52 2005
--- emacs/lisp/dired-x.el       Sat Jul 16 11:40:58 2005
***************
*** 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.