mirror of
https://github.com/protesilaos/denote.git
synced 2026-09-10 07:16:20 -04:00
Use let* instead of needless when-let* in one instance
This commit is contained in:
parent
23e1e8642b
commit
c94a8484ca
|
|
@ -994,10 +994,10 @@ DIRECTORIES are absolute file system paths."
|
||||||
(error "DIRECTORIES must be a list of absolute filesystem paths, not `%S'" directories))
|
(error "DIRECTORIES must be a list of absolute filesystem paths, not `%S'" directories))
|
||||||
((null (cdr directories))
|
((null (cdr directories))
|
||||||
(car directories))
|
(car directories))
|
||||||
((when-let* ((parts (mapcar
|
((let* ((parts (mapcar
|
||||||
(lambda (dir)
|
(lambda (dir)
|
||||||
(split-string dir "/" :omit-nulls))
|
(split-string dir "/" :omit-nulls))
|
||||||
directories)))
|
directories)))
|
||||||
(let ((common-prefix (car parts)))
|
(let ((common-prefix (car parts)))
|
||||||
(dolist (part (cdr parts))
|
(dolist (part (cdr parts))
|
||||||
(let ((new-common-prefix nil))
|
(let ((new-common-prefix nil))
|
||||||
|
|
|
||||||
Loading…
Reference in a new issue