(describe-char): Fix for the case CODE is a cons of integers.

1 files changed, 3 insertions, 1 deletions

diff --git a/lisp/descr-text.el b/lisp/descr-text.el
index 5ce8cabed55..108d7d87a1e 100644
--- a/lisp/descr-text.el
+++ b/lisp/descr-text.el
@@ -494,7 +494,9 @@ as well as widgets, buttons, overlays, and text properties."
              ,(symbol-name charset)
              ,(format "(%s)" (charset-description charset)))
             ("code point"
-             ,(format (if (< code 256) "0x%02X" "0x%04X") code))
+             ,(if (integerp code)
+                  (format (if (< code 256) "0x%02X" "0x%04X") code)
+                (format "0x%04X%04X" (car code) (cdr code))))
             ("syntax"
              ,(let ((syntax (syntax-after pos)))
                 (with-temp-buffer