From 8dcdb24b94e77f26608c771c48978e2dd245e803 Mon Sep 17 00:00:00 2001 From: "waldemar%netscape.com" Date: Mon, 30 Jun 2003 22:13:14 +0000 Subject: [PATCH] Added depict-supplementary-character. --- js2/semantics/Markup.lisp | 7 +++++++ 1 file changed, 7 insertions(+) diff --git a/js2/semantics/Markup.lisp b/js2/semantics/Markup.lisp index 2676d063632..76809b26c31 100644 --- a/js2/semantics/Markup.lisp +++ b/js2/semantics/Markup.lisp @@ -706,6 +706,13 @@ (depict markup-stream :left-angle-quote name :right-angle-quote)))))) +; Emit markup for the given supplementary code point, which must be between #x10000 and #x10FFFF. +(defun depict-supplementary-character (markup-stream code-point) + (assert (and (integerp code-point) (<= #x10000 code-point #x10FFFF))) + (depict-char-style (markup-stream :character-literal-control) + (depict markup-stream :left-angle-quote (format nil "U~8,'0X" code-point) :right-angle-quote))) + + ; Emit markup for the given string, enclosing it in curly double quotes. ; The markup-stream should be set to normal formatting. (defun depict-string (markup-stream string)