Use let* instead of needless when-let* in one instance

This commit is contained in:
Protesilaos Stavrou 2026-01-14 09:43:22 +02:00
parent 23e1e8642b
commit c94a8484ca
No known key found for this signature in database
GPG key ID: 99BD6459CD5CA3EA

View file

@ -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))