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)