Make two small stylistic changes to denote-sequence--pad

This commit is contained in:
Protesilaos Stavrou 2025-01-05 12:12:22 +02:00
parent 3e831132f1
commit f948c3ca44
No known key found for this signature in database
GPG key ID: 99BD6459CD5CA3EA

View file

@ -170,16 +170,14 @@ means to pad the full length of the sequence."
(let* ((sequence-separator-p (string-match-p "=" sequence))
(split (denote-sequence-split sequence))
(s (cond
((eq type 'all)
split)
((eq type 'all) split)
(sequence-separator-p
(pcase type
('parent (car split))
('sibling split)
('child (car (nreverse split)))
(_ (error "The type `%s' is not among `denote-sequence-types'" type))))
(t
sequence))))
(t sequence))))
(if (listp s)
(combine-and-quote-strings
(mapcar