awesome-emacs/doomemacs
1
0
Fork 0
mirror of https://github.com/doomemacs/doomemacs synced 2025-09-18 16:06:56 -05:00
Code Issues Packages Projects Releases Wiki Activity

Reduce false positive symlinks in doom/info {emacs,doom}dir

Browse Source
This commit is contained in:
Henrik Lissner
2021-04-17 18:08:01 -04:00
parent 233fd93b65
commit 6e49cb5ce2
1 changed files with 3 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
core/autoload/debug.el
View File

@@ -121,10 +121,9 @@ ready to be pasted in a bug report on github."
(regexp-opt (list (user-login-name)) 'words) "$USER" (regexp-opt (list (user-login-name)) 'words) "$USER"
(abbreviate-file-name path))) (abbreviate-file-name path)))
(defun symlink-path (file) (defun symlink-path (file)
(let ((truefile (file-truename file)))
(format "%s%s" (abbrev-path file) (format "%s%s" (abbrev-path file)
(if (equal file truefile) "" (if (file-symlink-p file) ""
(concat " -> " (abbrev-path truefile))))))) (concat " -> " (abbrev-path (file-truename file)))))))
`((generated . ,(format-time-string "%b %d, %Y %H:%M:%S")) `((generated . ,(format-time-string "%b %d, %Y %H:%M:%S"))
(distro . ,(list (doom-system-distro-version) (sh "uname" "-msr"))) (distro . ,(list (doom-system-distro-version) (sh "uname" "-msr")))
(emacs . ,(delq (emacs . ,(delq