bug-gnu-emacs
[Top][All Lists]
Advanced

[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---






reply via email to

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