From 5c8ba275ed91a128d5dee7c899767ad30af90b97 Mon Sep 17 00:00:00 2001 From: Kévin Le Gouguec Date: Sun, 12 Apr 2020 01:01:01 +0200 Subject: Update "bug tracker" MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit 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)))) --- itches/emacs/tracker.org | 10 +--------- 1 file changed, 1 insertion(+), 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. -- cgit v1.2.3