# HG changeset patch
# User Juanma Barranquero <lekktu@gmail.com>
# Date 1115407510 0
# Node ID 912c2cf7900507eb540e995d444b41c36e4c1174
# Parent  9ded253bfb550f2f86011a2d8285a7aa56a7bcc0
(po-find-file-coding-system-guts): Replace `assoc-ignore-case' by
`assoc-string'.

diff -r 9ded253bfb55 -r 912c2cf79005 lisp/textmodes/po.el
--- a/lisp/textmodes/po.el	Fri May 06 13:18:20 2005 +0000
+++ b/lisp/textmodes/po.el	Fri May 06 19:25:10 2005 +0000
@@ -80,14 +80,15 @@
 	    assoc)
        (list (cond
 	      ((setq assoc
-		     (assoc-ignore-case charset
-					po-content-type-charset-alist))
+		     (assoc-string charset
+                                   po-content-type-charset-alist
+                                   t))
 	       (cdr assoc))
-	      ((or (setq assoc (assoc-ignore-case charset coding-system-alist))
+	      ((or (setq assoc (assoc-string charset coding-system-alist t))
 		   (setq assoc
-			 (assoc-ignore-case (subst-char-in-string ?_ ?-
-								  charset)
-					    coding-system-alist)))
+			 (assoc-string (subst-char-in-string ?_ ?-
+                                                             charset)
+                                       coding-system-alist t)))
 	       (intern (car assoc)))
 	      ;; In principle we should also check the `mime-charset'
 	      ;; property of everything in the base coding system
@@ -101,10 +102,10 @@
 	       ;; to require it initially?
 	       (require 'code-pages nil t)
 	       (if (or
-		    (setq assoc (assoc-ignore-case charset coding-system-alist))
-		    (setq assoc (assoc-ignore-case (subst-char-in-string
-						    ?_ ?- charset)
-						   coding-system-alist)))
+		    (setq assoc (assoc-string charset coding-system-alist t))
+		    (setq assoc (assoc-string (subst-char-in-string
+                                               ?_ ?- charset)
+                                              coding-system-alist t)))
 		   (intern (car assoc))
 		 'raw-text))))))))