summaryrefslogtreecommitdiff
path: root/lisp/descr-text.el
diff options
context:
space:
mode:
authorTino Calancha <f92capac@gmail.com>2016-04-23 12:41:28 -0700
committerPaul Eggert <eggert@cs.ucla.edu>2016-04-23 12:48:38 -0700
commit4f40f5f63aaf2948a7b99c3a2eed0e50b2aa3a47 (patch)
tree75a6ebe5534c269f6d267ae5a50ec334d58af837 /lisp/descr-text.el
parent87ee542fbc93e172d10fb742a15b2a9fdc526992 (diff)
downloademacs-4f40f5f63aaf2948a7b99c3a2eed0e50b2aa3a47.tar.gz
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
Diffstat (limited to 'lisp/descr-text.el')
-rw-r--r--lisp/descr-text.el2
1 files changed, 1 insertions, 1 deletions
diff --git a/lisp/descr-text.el b/lisp/descr-text.el
index a352ed0849c..5f1a4304342 100644
--- a/lisp/descr-text.el
+++ b/lisp/descr-text.el
@@ -619,7 +619,7 @@ relevant to POS."
(let ((name
(or (get-char-code-property char 'name)
(get-char-code-property char 'old-name))))
- (if name
+ (if (and name (assoc-string name (ucs-names)))
(format
"type \"C-x 8 RET %x\" or \"C-x 8 RET %s\""
char name)