From 7e7d8ebdfd790d431afcb203067ec1578fe90a76 Mon Sep 17 00:00:00 2001 From: Henrik Lissner Date: Sat, 22 Jun 2024 18:06:52 -0400 Subject: [PATCH] fix(lib): print!: don't resolve printed symlinks --- lisp/lib/print.el | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/lisp/lib/print.el b/lisp/lib/print.el index d02a1752e..fae92605e 100644 --- a/lisp/lib/print.el +++ b/lisp/lib/print.el @@ -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))))))