diff options
| author | ej-32u <ej32u@protonmail.com> | 2020-09-05 14:12:22 +0200 |
|---|---|---|
| committer | Lars Ingebrigtsen <larsi@gnus.org> | 2020-09-05 14:12:22 +0200 |
| commit | e0c77bb62c1c950a82ea0517646d989dc5c1fe27 (patch) | |
| tree | 86ddaca2daae2ad8898dd7aa99643320b88a2ade | |
| parent | 31c3f53816feb4c40c52cf2840c171a9d631de66 (diff) | |
| download | emacs-e0c77bb62c1c950a82ea0517646d989dc5c1fe27.tar.gz | |
Display name with with spaces, but keep symbol name underneath
* lisp/cus-edit.el (custom-unlispify-menu-entry): Display the
pretty name, but keep the real symbol name as the value (bug#41905).
Copyright-paperwork-exempt: yes
| -rw-r--r-- | lisp/cus-edit.el | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/lisp/cus-edit.el b/lisp/cus-edit.el index 23ceb3a857a..59ac52f0a40 100644 --- a/lisp/cus-edit.el +++ b/lisp/cus-edit.el @@ -561,7 +561,8 @@ value unless you are sure you know what it does." (unless no-suffix (goto-char (point-max)) (insert "...")) - (buffer-string))))) + (propertize (symbol-name symbol) + 'display (buffer-string)))))) (defcustom custom-unlispify-tag-names t "Display tag names as words instead of symbols if non-nil." |