diff options
| author | Richard M. Stallman | 1992-09-20 23:59:32 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 1992-09-20 23:59:32 +0000 |
| commit | ec8be6da94c78a4103677c77b9ab24ceef4451ec (patch) | |
| tree | 4771b68ca545fea9c8f6296f1308d773f07aac7a | |
| parent | f37dc9fbe5f8d8adbcde72d32a1db03dee077bac (diff) | |
| download | emacs-ec8be6da94c78a4103677c77b9ab24ceef4451ec.tar.gz emacs-ec8be6da94c78a4103677c77b9ab24ceef4451ec.zip | |
entered into RCS
| -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'." | |||
| 1466 | "-c" (concat insert-directory-program | 1466 | "-c" (concat insert-directory-program |
| 1467 | " -d " switches " " | 1467 | " -d " switches " " |
| 1468 | (file-name-nondirectory file)))) | 1468 | (file-name-nondirectory file)))) |
| 1469 | ;;; ;; Chase links till we reach a non-link. | ||
| 1470 | ;;; (let (symlink) | ||
| 1471 | ;;; (while (setq symlink (file-symlink-p file)) | ||
| 1472 | ;;; (setq file symlink))) | ||
| 1469 | (call-process insert-directory-program nil t nil switches file)))))) | 1473 | (call-process insert-directory-program nil t nil switches file)))))) |
| 1470 | 1474 | ||
| 1471 | (defun save-buffers-kill-emacs (&optional arg) | 1475 | (defun save-buffers-kill-emacs (&optional arg) |