[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: |
Wed, 16 May 2018 12:51:01 +0900 |
emacs -Q -l dired-x
M-x customize-apropos dired-x RET
;; Last line of the buffer is:
Dired XExtended directory editing (dired-x).
;; It reads better if the package name is separated from
;; the package description. For instance:
Dired X: Extended directory editing (dired-x).
;; Following patch shows the line as:
Dired X:Extended directory editing (dired-x).
;; 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.
--8<-----------------------------cut here---------------start------------->8---
commit 2edea58d78914063bb56270774b5e02d8a1a55af
Author: Tino Calancha <tino.calancha@gmail.com>
Date: Wed May 16 12:46:09 2018 +0900
customize-apropos: Separate package name from its description
* lisp/cus-edit.el (custom-buffer-create-internal): Separate
package name from its description with a colon.
diff --git a/lisp/cus-edit.el b/lisp/cus-edit.el
index a12897e799..0a596ab331 100644
--- a/lisp/cus-edit.el
+++ b/lisp/cus-edit.el
@@ -1711,8 +1711,10 @@ custom-buffer-create-internal
(message "Creating customization items ...%2d%%"
(floor (* 100.0 count) length))
(widget-create (nth 1 entry)
- :tag (custom-unlispify-tag-name
- (nth 0 entry))
+ :tag (format "%s%s"
+ (custom-unlispify-tag-name
+ (nth 0 entry))
+ (if (eq (nth 1 entry)
'custom-group) ":" ""))
:value (nth 0 entry))
(setq count (1+ count))
(unless (eq (preceding-char) ?\n)
--8<-----------------------------cut here---------------end--------------->8---
- bug#31466: 27.0.50; customize-apropos: Separate package name from its description,
Tino Calancha <=