emacs/protesilaos.denote
1
0
Fork 0
mirror of https://github.com/protesilaos/denote.git synced 2026-09-10 07:16:20 -04:00
Code Issues Actions Packages Projects Releases Wiki Activity

Make two stylistic changes to denote--get-common-root-directory

Browse source
This commit is contained in:
Protesilaos Stavrou 2026-01-14 09:36:08 +02:00
parent d90f3633de
commit 1786ebcd0f
No known key found for this signature in database
GPG key ID: 99BD6459CD5CA3EA
1 changed files with 3 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
denote.el
View file

@ -989,9 +989,9 @@ DIRECTORIES are absolute file system paths."
;; FIXME 2026-01-14: The `file-name-absolute-p' actually returns
;; non-nil for ~/PATH. This will not work here. Does the prefix
;; check work on all operating systems? Linux is fine.
((unless (seq-every-p (lambda (d) (string-prefix-p "/" d)) directories)
(error "All directories must be absolute paths")))
((length= directories 1)
((not (seq-every-p (lambda (d) (string-prefix-p "/" d)) directories))
(error "All directories must be absolute paths"))
((null (cdr directories))
(car directories))
((when-let* ((parts (mapcar
(lambda (dir)