changeset 97263:e76de9fd17e3

* international/mule-cmds.el (read-char-by-name): Check UCS names with `assoc-string' and case folding.
author Juanma Barranquero <lekktu@gmail.com>
date Mon, 04 Aug 2008 13:35:02 +0000
parents fdf8e9052078
children 69df98840af7
files lisp/ChangeLog lisp/international/mule-cmds.el
diffstat 2 files changed, 9 insertions(+), 4 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/ChangeLog	Mon Aug 04 12:42:28 2008 +0000
+++ b/lisp/ChangeLog	Mon Aug 04 13:35:02 2008 +0000
@@ -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
--- a/lisp/international/mule-cmds.el	Mon Aug 04 12:42:28 2008 +0000
+++ b/lisp/international/mule-cmds.el	Mon Aug 04 13:35:02 2008 +0000
@@ -2877,7 +2877,7 @@
      ((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.