* international/mule-cmds.el (read-char-by-name):

  Check UCS names with `assoc-string' and case folding.

2 files changed, 9 insertions, 4 deletions

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 26a6c2b0800..eb44fb00656 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,8 +1,13 @@
+2008-08-04  Juanma Barranquero  <lekktu@gmail.com>
+
+        * international/mule-cmds.el (read-char-by-name):
+        Check UCS names with `assoc-string' and case folding.
+
 2008-08-04  Michael Albinus  <michael.albinus@gmx.de>
 
         * net/dbus.el (dbus-call-method-asynchronously)
-        (dbus-method-return-internal, dbus-method-error-internal): Declare
-        them with `declare-function'.
+        (dbus-method-return-internal, dbus-method-error-internal):
+        Declare them with `declare-function'.
 
 2008-08-04  Juanma Barranquero  <lekktu@gmail.com>
 
@@ -17,7 +22,7 @@
 
         * ido.el (ido-mode): Add toggle notification.
 
-        * cus-edit.el (custom-save-all): Avoid destrying symlink if
+        * cus-edit.el (custom-save-all): Avoid destroying symlink if
         already visiting the custom file.
 
         * pgg-gpg.el (pgg-gpg-process-region): Accept any remaining
diff --git a/lisp/international/mule-cmds.el b/lisp/international/mule-cmds.el
index c5b05d629aa..be3f53d2484 100644
--- a/lisp/international/mule-cmds.el
+++ b/lisp/international/mule-cmds.el
@@ -2877,7 +2877,7 @@ for decimal.  Returns a character as a number."
      ((string-match "^#" input)
       (read input))
      (t
-      (cdr (assoc input (ucs-names)))))))
+      (cdr (assoc-string input (ucs-names) t))))))
 
 (defun ucs-insert (arg)
   "Insert a character of the given Unicode code point.