expand file name dir

This commit is contained in:
Marcus Kammer 2024-04-16 14:05:47 +02:00
parent 8404b29460
commit b7f6ede49d

View file

@ -8,7 +8,7 @@
Uses `mk/hyperspec-dir-locations' to find the directory."
(let ((dir (seq-find 'file-directory-p mk/hyperspec-dir-locations)))
(if dir
(concat "file://" (and (eq system-type 'windows-nt) "/") dir)
(concat "file://" (and (eq system-type 'windows-nt) "/") (expand-file-name dir))
nil)))
(setq common-lisp-hyperspec-root (mk/hyperspec-dir))