bug#23325: 25.0.92; insert-char: cannot find all chars if input is unicode name

[Tino Calancha <f92capac@gmail.com>]

[-- Attachment #1: Type: text/plain, Size: 289 bytes --]



> Yes, it should show a method that works; patches welcome.

With attached patch:

`describe-char' on 0x79c1 shows:
to input: type "C-x 8 RET 79c1"

IOH, for catched entries in `ucs-names' (e.g. 0x304d) it shows as usual:
to input: type "C-x 8 RET 304d" or "C-x 8 RET HIRAGANA LETTER KI"

[-- Attachment #2: Type: text/plain, Size: 1152 bytes --]

diff --git a/lisp/descr-text.el b/lisp/descr-text.el
index a352ed0..21f2214 100644
--- a/lisp/descr-text.el
+++ b/lisp/descr-text.el
@@ -619,7 +619,13 @@ describe-char
                           (let ((name
                                  (or (get-char-code-property char 'name)
                                      (get-char-code-property char 'old-name))))
-                            (if name
+                            (if (and name
+                                     (not (string-prefix-p "CJK IDEOGRAPH-" name))
+                                     (not (string-prefix-p "CJK COMPATIBILITY IDEOGRAPH-" name))
+                                     (not (string-prefix-p "LOW SURROGATE-" name))
+                                     (not (string-prefix-p "HIGH SURROGATE-" name))
+                                     (not (string-prefix-p "TANGUT IDEOGRAPH-" name))
+                                     (not (string-prefix-p "TANGUT COMPONENT-" name)))
                                 (format
                                  "type \"C-x 8 RET %x\" or \"C-x 8 RET %s\""
                                  char name)