Mercurial > emacs
changeset 1182:756152bcdbc0
entered into RCS
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Sun, 20 Sep 1992 23:59:32 +0000 |
| parents | 5897b220ad8e |
| children | 170e5a18c4ba |
| files | lisp/files.el |
| diffstat | 1 files changed, 4 insertions(+), 0 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/files.el Sun Sep 20 22:45:13 1992 +0000 +++ b/lisp/files.el Sun Sep 20 23:59:32 1992 +0000 @@ -1466,6 +1466,10 @@ "-c" (concat insert-directory-program " -d " switches " " (file-name-nondirectory file)))) +;;; ;; Chase links till we reach a non-link. +;;; (let (symlink) +;;; (while (setq symlink (file-symlink-p file)) +;;; (setq file symlink))) (call-process insert-directory-program nil t nil switches file)))))) (defun save-buffers-kill-emacs (&optional arg)