comparison lisp/files.el @ 96616:5d72c5c4ec9f

(file-truename): Get truename of ancestors if file does not exist on Windows.

96615:3f3c7e8d290f

	;; This is so that ange-ftp can save time by doing a no-op.
	(if handler
	    (setq filename (funcall handler 'file-truename filename))
	  ;; If filename contains a wildcard, newname will be the old name.
	  (unless (string-match "[[*?]" filename)
	    ;; If filename exists, use the long name
	    (setq filename (or (w32-long-file-name filename) filename))))
	(setq done t)))

    ;; If this file directly leads to a link, process that iteratively
    ;; so that we don't use lots of stack.
    (while (not done)

96616:5d72c5c4ec9f

	;; This is so that ange-ftp can save time by doing a no-op.
	(if handler
	    (setq filename (funcall handler 'file-truename filename))
	  ;; If filename contains a wildcard, newname will be the old name.
	  (unless (string-match "[[*?]" filename)
	    ;; If filename exists, use the long name.  If it doesn't exist,
            ;; drill down until we find a directory that exists, and use
            ;; the long name of that, with the extra non-existent path
            ;; components concatenated.
            (let ((longname (w32-long-file-name filename))
                  missing rest)
              (if longname
                  (setq filename longname)
                ;; include the preceding directory separator in the missing
                ;; part so subsequent recursion on the rest works.
                (setq missing (concat "/" (file-name-nondirectory filename)))
                (setq rest (substring filename 0 (* -1 (length missing))))
                (setq filename (concat (file-truename rest) missing))))))
	(setq done t)))

    ;; If this file directly leads to a link, process that iteratively
    ;; so that we don't use lots of stack.
    (while (not done)