diff options
| -rw-r--r-- | lisp/dired-x.el | 4 |
1 files 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 | |||
| 1223 | (dired-do-create-files 'relsymlink (function dired-make-relative-symlink) | 1223 | (dired-do-create-files 'relsymlink (function dired-make-relative-symlink) |
| 1224 | "RelSymLink" arg dired-keep-marker-relsymlink)) | 1224 | "RelSymLink" arg dired-keep-marker-relsymlink)) |
| 1225 | 1225 | ||
| 1226 | (defun dired-do-relsymlink-regexp (regexp newname &optional whole-name) | 1226 | (defun dired-do-relsymlink-regexp (regexp newname &optional arg whole-name) |
| 1227 | "RelSymlink all marked files containing REGEXP to NEWNAME. | 1227 | "RelSymlink all marked files containing REGEXP to NEWNAME. |
| 1228 | See functions `dired-do-rename-regexp' and `dired-do-relsymlink' | 1228 | See functions `dired-do-rename-regexp' and `dired-do-relsymlink' |
| 1229 | for more info." | 1229 | for more info." |
| 1230 | (interactive (dired-mark-read-regexp "RelSymLink")) | 1230 | (interactive (dired-mark-read-regexp "RelSymLink")) |
| 1231 | (dired-do-create-files-regexp | 1231 | (dired-do-create-files-regexp |
| 1232 | (function dired-make-relative-symlink) | 1232 | (function dired-make-relative-symlink) |
| 1233 | "RelSymLink" nil regexp newname whole-name dired-keep-marker-relsymlink)) | 1233 | "RelSymLink" arg regexp newname whole-name dired-keep-marker-relsymlink)) |
| 1234 | 1234 | ||
| 1235 | 1235 | ||
| 1236 | ;;; VISIT ALL MARKED FILES SIMULTANEOUSLY. | 1236 | ;;; VISIT ALL MARKED FILES SIMULTANEOUSLY. |