diff options
| -rw-r--r-- | lisp/files.el | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/lisp/files.el b/lisp/files.el index f784004c04a..32b21ca91e8 100644 --- a/lisp/files.el +++ b/lisp/files.el @@ -1466,6 +1466,10 @@ If WILDCARD, it also runs the shell specified by `shell-file-name'." "-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) |