Mercurial > emacs
comparison lisp/dired-x.el @ 75617:6625541ec588
(dired-do-relsymlink): Fix last change.
| author | Eli Zaretskii <eliz@gnu.org> |
|---|---|
| date | Fri, 02 Feb 2007 18:23:04 +0000 |
| parents | 9599324110d3 |
| children | d75435a2e621 |
comparison
equal
deleted
inserted
replaced
| 75616:60666b52ce43 | 75617:6625541ec588 |
|---|---|
| 1306 | 1306 |
| 1307 not absolute ones like | 1307 not absolute ones like |
| 1308 | 1308 |
| 1309 foo -> /ugly/file/name/that/may/change/any/day/bar/foo | 1309 foo -> /ugly/file/name/that/may/change/any/day/bar/foo |
| 1310 | 1310 |
| 1311 For absulte symlinks, use \\[dired-do-symlink]." | 1311 For absolute symlinks, use \\[dired-do-symlink]." |
| 1312 (interactive "P") | 1312 (interactive "P") |
| 1313 (dired-do-create-files 'relsymlink (function dired-make-relative-symlink) | 1313 (dired-do-create-files 'relsymlink (function dired-make-relative-symlink) |
| 1314 "RelSymLink" arg dired-keep-marker-relsymlink)) | 1314 "RelSymLink" arg dired-keep-marker-relsymlink)) |
| 1315 | 1315 |
| 1316 (defun dired-do-relsymlink-regexp (regexp newname &optional arg whole-name) | 1316 (defun dired-do-relsymlink-regexp (regexp newname &optional arg whole-name) |