mirror of
https://github.com/protesilaos/denote.git
synced 2026-09-10 07:16:20 -04:00
Make two small stylistic changes to denote-sequence--pad
This commit is contained in:
parent
3e831132f1
commit
f948c3ca44
|
|
@ -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
|
||||
|
|
|
|||
Loading…
Reference in a new issue