|
I had spent the better part of a day composing a 50-line message to
help-gnu-emacs asking for advice, and I was a heartbeat away from
hitting C-c C-c, until I began wondering if the list returned by
alist-get was a copy or a reference.
Turns out it's a reference. Remembered that setcar is a thing. Whipped
up the following:
(let* ((indicator (alist-get 'compilation-in-progress mode-line-modes))
(old-props (text-properties-at 0 (car indicator)))
(new-props '(face compilation-mode-line-run)))
(setcar indicator (apply #'propertize "⚙" (append new-props old-props))))
|
