expand file name dir
This commit is contained in:
parent
8404b29460
commit
b7f6ede49d
1 changed files with 1 additions and 1 deletions
|
@ -8,7 +8,7 @@
|
||||||
Uses `mk/hyperspec-dir-locations' to find the directory."
|
Uses `mk/hyperspec-dir-locations' to find the directory."
|
||||||
(let ((dir (seq-find 'file-directory-p mk/hyperspec-dir-locations)))
|
(let ((dir (seq-find 'file-directory-p mk/hyperspec-dir-locations)))
|
||||||
(if dir
|
(if dir
|
||||||
(concat "file://" (and (eq system-type 'windows-nt) "/") dir)
|
(concat "file://" (and (eq system-type 'windows-nt) "/") (expand-file-name dir))
|
||||||
nil)))
|
nil)))
|
||||||
|
|
||||||
(setq common-lisp-hyperspec-root (mk/hyperspec-dir))
|
(setq common-lisp-hyperspec-root (mk/hyperspec-dir))
|
||||||
|
|
Loading…
Add table
Reference in a new issue