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

diff --git a/lisp/cus-edit.el b/lisp/cus-edit.el
index 23ceb3a857affeb94d79446af529d853c9d5e990..59ac52f0a4035270e4fe386b2fdb10ca88f3a9be 100644 (file)
--- 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."