[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
bug#31466: 27.0.50; customize-apropos: Separate package name from its de
From: |
Tino Calancha |
Subject: |
bug#31466: 27.0.50; customize-apropos: Separate package name from its description |
Date: |
Thu, 17 May 2018 11:57:39 +0900 |
User-agent: |
Gnus/5.13 (Gnus v5.13) Emacs/27.0.50 (gnu/linux) |
Eli Zaretskii <eliz@gnu.org> writes:
>> ;; Without the extra space because looks a bit ugly in the link.
>> ;; If someone knows a way to add the extra space out of the link,
>> ;; that would be better.
>
> I think customize-group does a better job in presenting similar
> lists. It uses :align-to display spec for that; can customize-apropos
> do something similar? E.g., try "M-x customize-group RET RET".
Thanks for the tip.
I am not so familiar with this widget stuff.
Following is a hack but seems to work:
--8<-----------------------------cut here---------------start------------->8---
commit c12b63c079c9294819f1152912d9b3ad0c830717
Author: Tino Calancha <tino.calancha@gmail.com>
Date: Thu May 17 11:50:11 2018 +0900
customize-apropos: Separate package name from its description
* lisp/cus-edit.el (custom-buffer-create-internal):
Indent the documentation from the package name in `customize-apropos',
`customize-apropos-groups' commands (Bug#31466).
diff --git a/lisp/cus-edit.el b/lisp/cus-edit.el
index a12897e799..1496e0b89f 100644
--- a/lisp/cus-edit.el
+++ b/lisp/cus-edit.el
@@ -4145,7 +4145,9 @@ custom-group-value-create
;; Update buttons.
(widget-put widget :buttons buttons)
;; Insert documentation.
- (if (and (eq custom-buffer-style 'links) (> level 1))
+ (if (and (eq custom-buffer-style 'links)
+ (or (> level 1)
+ (memq this-command '(customize-apropos
customize-apropos-groups))))
(widget-put widget :documentation-indent
custom-group-doc-align-col))
(widget-add-documentation-string-button
--8<-----------------------------cut here---------------end--------------->8---