diff lisp/international/mule-cmds.el @ 105534:c980b10b79eb

* international/mule-cmds.el (ucs-names): Exclude new "Enclosed Ideographic Supplement" range (U+1F200..U+1F2FF).

--- a/lisp/international/mule-cmds.el	Fri Oct 09 06:50:14 2009 +0000
+++ b/lisp/international/mule-cmds.el	Fri Oct 09 13:03:17 2009 +0000
@@ -2893,7 +2893,8 @@
 			 (and (>= c #x3400 ) (<= c #x4dbf )) ; CJK Ideograph Extension A
 			 (and (>= c #x4e00 ) (<= c #x9fff )) ; CJK Ideograph
 			 (and (>= c #xd800 ) (<= c #xfaff )) ; Private/Surrogate
-			 (and (>= c #x20000) (<= c #x2ffff)) ; CJK Ideograph Extension B
+			 (and (>= c #x1f200) (<= c #x1f2ff)) ; Enclosed Ideographic Supplement
+			 (and (>= c #x20000) (<= c #x2ffff)) ; CJK Ideograph Extensions B, C
 			 )
 		  (if (setq name (get-char-code-property c 'name))
 		      (setq names (cons (cons name c) names)))