From e0c77bb62c1c950a82ea0517646d989dc5c1fe27 Mon Sep 17 00:00:00 2001 From: ej-32u Date: Sat, 5 Sep 2020 14:12:22 +0200 Subject: [PATCH] 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 --- lisp/cus-edit.el | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) 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." -- 2.39.5