[Helm] Expand ‘db/important-documents-path’ before removing it
This commit is contained in:
parent
9b8c2ca7a7
commit
0803cd9abb
|
@ -301,6 +301,7 @@ The result will be a list of cons cells, where the car is the
|
|||
path relative to `db/important-documents’ and the cdr is the full
|
||||
path."
|
||||
;; code adapted from `directory-files-recursively’
|
||||
(let ((db/important-documents-path (expand-file-name db/important-documents-path)))
|
||||
(cl-labels ((all-files-in-dir (dir)
|
||||
(let ((result nil)
|
||||
(files nil))
|
||||
|
@ -321,7 +322,7 @@ path."
|
|||
files))))
|
||||
(nconc result (nreverse files)))))
|
||||
(when (file-directory-p db/important-documents-path)
|
||||
(all-files-in-dir db/important-documents-path))))
|
||||
(all-files-in-dir db/important-documents-path)))))
|
||||
|
||||
(defun db/system-open (path)
|
||||
"Open PATH with default program as defined by the underlying system."
|
||||
|
|
Loading…
Reference in New Issue