memory-leaks

commit 5c8ba275ed91a128d5dee7c899767ad30af90b97
parent fc1c520e9dafd4eca8f3c970ac9fb3574726ef08
Author: Kévin Le Gouguec <kevin.legouguec@gmail.com>
Date:   Sun, 12 Apr 2020 01:01:01 +0200

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:
M
itches/emacs/tracker.org
 | 
10
+---------

1 file changed, 1 insertion(+), 9 deletions(-)
diff --git 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.