emacs-elpa-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[elpa] externals/debbugs cca9282 297/311: Make the debbugs display more


From: Stefan Monnier
Subject: [elpa] externals/debbugs cca9282 297/311: Make the debbugs display more compact so that you can read the titles
Date: Sun, 29 Nov 2020 18:42:33 -0500 (EST)

branch: externals/debbugs
commit cca928252251603532844ba55706f8dc477325bc
Author: Lars Ingebrigtsen <larsi@gnus.org>
Commit: Lars Ingebrigtsen <larsi@gnus.org>

    Make the debbugs display more compact so that you can read the titles
---
 debbugs-gnu.el | 13 ++++++-------
 1 file changed, 6 insertions(+), 7 deletions(-)

diff --git a/debbugs-gnu.el b/debbugs-gnu.el
index 4e1d5dc..8e74b12 100644
--- a/debbugs-gnu.el
+++ b/debbugs-gnu.el
@@ -939,12 +939,11 @@ Used instead of `tabulated-list-print-entry'."
                state))
       ;; Insert submitter.
       (indent-to (setq pos (+ pos state-length 1)) 1)
-      (insert "[" (if (> (length submitter) (- submitter-length 2))
-                     (propertize (substring submitter 0 (- submitter-length 2))
-                                 'help-echo submitter)
-                   submitter))
+      (insert (if (> (length submitter) submitter-length)
+                 (propertize (substring submitter 0 submitter-length)
+                             'help-echo submitter)
+               submitter))
       (indent-to (+ pos (1- submitter-length)))
-      (insert "]")
       ;; Insert title.
       (indent-to (setq pos (+ pos submitter-length 1)) 1)
       (insert (propertize title 'help-echo title))
@@ -1084,8 +1083,8 @@ Interactively, it is non-nil with the prefix argument."
   (set (make-local-variable 'debbugs-gnu-local-suppress)
        debbugs-gnu-current-suppress)
   (setq tabulated-list-format [("Id"         5 debbugs-gnu-sort-id)
-                              ("State"     20 debbugs-gnu-sort-state)
-                              ("Submitter" 25 debbugs-gnu-sort-submitter)
+                              ("State"     10 debbugs-gnu-sort-state)
+                              ("Submitter" 18 debbugs-gnu-sort-submitter)
                               ("Title"     10 debbugs-gnu-sort-title)])
   (setq tabulated-list-sort-key (cons "Id" nil))
   (setq tabulated-list-printer #'debbugs-gnu-print-entry)



reply via email to

[Prev in Thread] Current Thread [Next in Thread]