mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-27 07:37:33 +00:00
Code Issues Releases Activity

entered into RCS

Browse Source
This commit is contained in:
Richard M. Stallman 1992-09-20 23:59:32 +00:00
parent f37dc9fbe5
commit ec8be6da94
1 changed files with 4 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
lisp/files.el
View File

@ -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)