|
From: | Juri Linkov |
Subject: | bug#41905: Small change: In Customize, display name with with spaces, but keep symbol name underneath. |
Date: | Tue, 08 Sep 2020 22:09:06 +0300 |
User-agent: | Gnus/5.13 (Gnus v5.13) Emacs/28.0.50 (x86_64-pc-linux-gnu) |
>>> (concat (propertize "f" 'display "F") >>> "ill" >>> (propertize "-" 'display " ") >>> (propertize "c" 'display "C") >>> "olumn") >> >> Actually I meant not concat, but set-text-properties: >> >> (let ((name "fill-column")) >> (set-text-properties 0 1 '(display "F") name) >> (set-text-properties 4 5 '(display " ") name) >> (set-text-properties 5 6 '(display "C") name) >> (insert name)) > > Why not concat? I think the end result is the same? Actually, you are right - destructive construction of strings is simpler: (let* ((name (symbol-name 'fill-column)) (text (replace-regexp-in-string "\\b[a-z]" (lambda (c) (propertize c 'display (upcase c))) (replace-regexp-in-string "[-:/]+" (lambda (c) (propertize c 'display " ")) name)))) (insert text))
[Prev in Thread] | Current Thread | [Next in Thread] |