Commit ec8be6da authored by Richard M. Stallman's avatar Richard M. Stallman
Browse files

entered into RCS

parent f37dc9fb
......@@ -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)
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment