describe-char: fix insert char documentation

* lisp/descr-text.el (describe-char):
Only 'ucs-names' entries can be inserted by unicode name (Bug#23325).

Copyright-paperwork-exempt: yes
This commit is contained in:
Tino Calancha 2016-04-23 12:41:28 -07:00 committed by Paul Eggert
parent 87ee542fbc
commit 4f40f5f63a

View file

@ -619,7 +619,7 @@ relevant to POS."
(let ((name (let ((name
(or (get-char-code-property char 'name) (or (get-char-code-property char 'name)
(get-char-code-property char 'old-name)))) (get-char-code-property char 'old-name))))
(if name (if (and name (assoc-string name (ucs-names)))
(format (format
"type \"C-x 8 RET %x\" or \"C-x 8 RET %s\"" "type \"C-x 8 RET %x\" or \"C-x 8 RET %s\""
char name) char name)