Skip to content

Commit

Permalink
Remove comments mentioning a legacy Emacs bug
Browse files Browse the repository at this point in the history
I won't forget about that again.  Also, because it emphasizes that even
though overall the value matter, there also are side-effects, I would
use the `progn' even it weren't necessary to work around that historic
bug.
  • Loading branch information
tarsius committed Nov 22, 2024
1 parent 24a1be5 commit aaefee0
Showing 1 changed file with 2 additions and 2 deletions.
4 changes: 2 additions & 2 deletions lisp/transient.el
Original file line number Diff line number Diff line change
Expand Up @@ -1715,7 +1715,7 @@ probably use this instead:
(error "BUG: Cannot determine suffix object")))))
((and-let* ((obj (transient--suffix-prototype (or command this-command)))
(obj (clone obj)))
(progn ; work around debbugs#31840
(progn
(transient-init-scope obj)
(transient-init-value obj)
obj)))))
Expand Down Expand Up @@ -2186,7 +2186,7 @@ value. Otherwise return CHILDREN as is."
(oset obj inapt t))))
(suffixes (mapcan (lambda (c) (transient--init-child levels c obj))
(transient-setup-children obj children))))
(progn ; work around debbugs#31840
(progn
(oset obj suffixes suffixes)
(list obj)))))

Expand Down

0 comments on commit aaefee0

Please sign in to comment.