Skip to content

Commit

Permalink
transient--insert-groups(columns): Simplify
Browse files Browse the repository at this point in the history
- Drop `flatten-tree' as it doesn't make a difference here.
- Avoid `push', favoring `cons'.
  • Loading branch information
tarsius committed Jun 3, 2024
1 parent fed89f8 commit 3ead384
Showing 1 changed file with 3 additions and 3 deletions.
6 changes: 3 additions & 3 deletions lisp/transient.el
Original file line number Diff line number Diff line change
Expand Up @@ -3752,9 +3752,9 @@ have a history of their own.")
(transient-with-shadowed-buffer
(let* ((transient--pending-group column)
(rows (mapcar #'transient-format (oref column suffixes))))
(when-let ((desc (transient-format-description column)))
(push desc rows))
(flatten-tree rows))))
(if-let ((desc (transient-format-description column)))
(cons desc rows)
rows))))
(oref group suffixes)))
(vp (or (oref transient--prefix variable-pitch)
transient-align-variable-pitch))
Expand Down

0 comments on commit 3ead384

Please sign in to comment.