fix(lib): print!: don't resolve printed symlinks

This commit is contained in:
Henrik Lissner 2024-06-22 18:06:52 -04:00
parent 703173a6d2
commit 7e7d8ebdfd
No known key found for this signature in database
GPG key ID: B60957CA074D39A3

View file

@ -92,8 +92,8 @@ and `format!' into colored output, where COLOR is any car of this list (or
(not (stringp str))
(string-blank-p str))
str
(let ((dir (or dir (file-truename default-directory)))
(str (file-truename str)))
(let* ((dir (or dir default-directory))
(str (expand-file-name str dir)))
(if (file-in-directory-p str dir)
(file-relative-name str dir)
(abbreviate-file-name str))))))