diff options
| author | Stefan Kangas <stefankangas@gmail.com> | 2022-11-27 07:29:54 +0100 |
|---|---|---|
| committer | Stefan Kangas <stefankangas@gmail.com> | 2022-11-27 07:32:13 +0100 |
| commit | 4a28f551490407ff2c9f5fd4ff0b86d311e2eb9c (patch) | |
| tree | 7f43073cef02490752630181c35eb0b5cf33853e /lisp/descr-text.el | |
| parent | a3d8da24762bc7ecc5bad9275ecc0a6d5f3ac7c3 (diff) | |
| download | emacs-4a28f551490407ff2c9f5fd4ff0b86d311e2eb9c.tar.gz | |
Improve describe-text-properties display
* lisp/descr-text.el (describe-property-list): Don't propertize white
space with the 'help-argument-name' face. This improves display
slightly when that face has an underline.
Diffstat (limited to 'lisp/descr-text.el')
| -rw-r--r-- | lisp/descr-text.el | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/lisp/descr-text.el b/lisp/descr-text.el index 7fad031add6..f2ffddcf702 100644 --- a/lisp/descr-text.el +++ b/lisp/descr-text.el @@ -77,8 +77,9 @@ into help buttons that call `describe-text-category' or (prin1-to-string (nth 0 b) t))))) (let ((key (nth 0 elt)) (value (nth 1 elt))) - (insert (propertize (format " %-20s " key) - 'face 'help-argument-name)) + (insert (format " %-20s " + (propertize (symbol-name key) + 'face 'help-argument-name))) (cond ((eq key 'category) (insert-text-button (symbol-name value) |