diff options
| author | Kévin Le Gouguec <kevin.legouguec@gmail.com> | 2020-04-12 01:01:01 +0200 |
|---|---|---|
| committer | Kévin Le Gouguec <kevin.legouguec@gmail.com> | 2020-04-12 01:01:01 +0200 |
| commit | 5c8ba275ed91a128d5dee7c899767ad30af90b97 (patch) | |
| tree | 78227459e16b481e9279a1ca6817d0402e953479 /itches/emacs/tracker.org | |
| parent | fc1c520e9dafd4eca8f3c970ac9fb3574726ef08 (diff) | |
| download | memory-leaks-5c8ba275ed91a128d5dee7c899767ad30af90b97.tar.xz | |
Update "bug tracker"
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))))
Diffstat (limited to 'itches/emacs/tracker.org')
| -rw-r--r-- | itches/emacs/tracker.org | 10 |
1 files changed, 1 insertions, 9 deletions
diff --git a/itches/emacs/tracker.org b/itches/emacs/tracker.org index 2558da1..62e0549 100644 --- a/itches/emacs/tracker.org +++ b/itches/emacs/tracker.org @@ -3,6 +3,7 @@ - v6 posted in December 2019. - Eli skeptical of final UI. ** bug#40152 icomplete vs recursive prompts +** bug#40520 Prevent duplicate thread titles in Gnus * following ** bug#39799 Most emoji sequences don’t render correctly ** bug#40280 gnus-cloud doesn't do anything useful @@ -29,15 +30,6 @@ To take some manual work off the maintainers: (setq-local vc-parent-buffer (find-file-noselect "CONTRIBUTE"))) #+end_src ** help -*** compilation-in-progress -Can someone make this snippet less ugly? -#+begin_src elisp -(let ((props (text-properties-at - 0 (car (alist-get 'compilation-in-progress mode-line-modes))))) - (setf (alist-get 'compilation-in-progress mode-line-modes) - (list - (apply #'propertize "⚙" `(face compilation-mode-line-run ,@props))))) -#+end_src * closed ** bug#23284 Cannot input 'Y' with dired-do-query-replace-regexp Fixed by Dmitry. |