Mercurial > emacs
comparison lisp/dired-x.el @ 64367:93037e5003f9
(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 | 6fb026ad601f |
| children | e5507dea35cb |
comparison
equal
deleted
inserted
replaced
| 64366:c1cb0b064667 | 64367:93037e5003f9 |
|---|---|
| 1221 foo -> /ugly/file/name/that/may/change/any/day/bar/foo" | 1221 foo -> /ugly/file/name/that/may/change/any/day/bar/foo" |
| 1222 (interactive "P") | 1222 (interactive "P") |
| 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. |
| 1237 | 1237 |
| 1238 ;;; Brief Description: | 1238 ;;; Brief Description: |