Commit 6d1df4b2 authored by Jim Blandy's avatar Jim Blandy
Browse files

* files.el (file-truename): The variable ~ should be considered an

	absolute pathname; handle it correctly.  Concatenate the directory
	onto the filename in the correct order.
parent 1e733c6f
......@@ -268,13 +268,15 @@ accessible."
The truename of a file name is found by chasing symbolic links
both at the level of the file and at the level of the directories
containing it, until no links are left at any level."
(if (string= filename "~")
(setq filename (expand-file-name filename)))
(let ((dir (file-name-directory filename))
;; Get the truename of the directory.
(or (string= dir "/")
(setq dir (file-name-as-directory (file-truename (directory-file-name dir)))))
;; Put it back on the file name.
(setq filename (concat (file-name-nondirectory filename) dir))
(setq filename (concat dir (file-name-nondirectory filename)))
;; Is the file name the name of a link?
(setq target (file-symlink-p filename))
(if target
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