* international/mule-cmds.el (ucs-names): Exclude new "Enclosed

  Ideographic Supplement" range (U+1F200..U+1F2FF).

2 files changed, 10 insertions, 5 deletions

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index a6c77c6c03d..5856ae9203a 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,15 +1,19 @@
+2009-10-09  Juanma Barranquero  <lekktu@gmail.com>
+
+        * international/mule-cmds.el (ucs-names): Exclude new "Enclosed
+        Ideographic Supplement" range (U+1F200..U+1F2FF).
+
 2009-10-09  Karl Fogel  <kfogel@red-bean.com>
 
         * bookmark.el (bookmark-bmenu-rename): Don't call bookmark-bmenu-list,
-          since the list will have been rebuilt anyway.  (Bug#4349)
+        since the list will have been rebuilt anyway.  (Bug#4349)
 
 2009-10-09  Karl Fogel  <kfogel@red-bean.com>
 
-        * bookmark.el (bookmark-delete): Don't let batch arg prevent
-        saving.
+        * bookmark.el (bookmark-delete): Don't let batch arg prevent saving.
         (bookmark-bmenu-execute-deletions): Don't save here, as
         bookmark-delete will now do so if necessary.
-        Suggested by: Thierry Volpiatto <thierry.volpiatto {_AT_} gmail.com>
+        Suggested by Thierry Volpiatto <thierry.volpiatto {_AT_} gmail.com>.
         (Bug#4348)
 
 2009-10-09  Glenn Morris  <rgm@gnu.org>
diff --git a/lisp/international/mule-cmds.el b/lisp/international/mule-cmds.el
index b9ae96f4ff0..5ae8290687e 100644
--- a/lisp/international/mule-cmds.el
+++ b/lisp/international/mule-cmds.el
@@ -2893,7 +2893,8 @@ on encoding."
                          (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)))