From: Richard M. Stallman <rms@gnu.org>
Date: Wed, 21 Apr 2004 19:16:15 +0000 (+0000)
Subject: Use assoc-string, not assoc-ignore-case.
X-Git-Tag: ttn-vms-21-2-B4~6680
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=f15466c5d8d18cacfaa82870b5fe4a97f489d4ae;p=emacs.git

Use assoc-string, not assoc-ignore-case.
---

diff --git a/lisp/international/mule-cmds.el b/lisp/international/mule-cmds.el
index 65e9fcab362..0b7aa54a288 100644
--- a/lisp/international/mule-cmds.el
+++ b/lisp/international/mule-cmds.el
@@ -1054,7 +1054,7 @@ For a list of useful values for KEY and their meanings,
 see `language-info-alist'."
   (if (symbolp lang-env)
       (setq lang-env (symbol-name lang-env)))
-  (let ((lang-slot (assoc-ignore-case lang-env language-info-alist)))
+  (let ((lang-slot (assoc-string lang-env language-info-alist t)))
     (if lang-slot
 	(cdr (assq key (cdr lang-slot))))))
 
@@ -1597,11 +1597,11 @@ to using the function `set-language-environment'."
   :link '(custom-manual "(emacs)Language Environments")
   :set (lambda (symbol value) (set-language-environment value))
   :get (lambda (x)
-	 (or (car-safe (assoc-ignore-case
+	 (or (car-safe (assoc-string
 			(if (symbolp current-language-environment)
 			    (symbol-name current-language-environment)
 			  current-language-environment)
-			language-info-alist))
+			language-info-alist t))
 	     "English"))
   ;; custom type will be updated with `set-language-info'.
   :type (if language-info-alist
@@ -1749,7 +1749,7 @@ specifies the character set for the major languages of Western Europe."
       (if (symbolp language-name)
 	  (setq language-name (symbol-name language-name)))
     (setq language-name "English"))
-  (let ((slot (assoc-ignore-case language-name language-info-alist)))
+  (let ((slot (assoc-string language-name language-info-alist t)))
     (unless slot
       (error "Language environment not defined: %S" language-name))
     (setq language-name (car slot)))
@@ -2282,7 +2282,7 @@ matches are looked for in the coding system list, treating case and
 the characters `-' and `_' as insignificant.  The coding system base
 is returned.  Thus, for instance, if charset \"ISO8859-2\",
 `iso-latin-2' is returned."
-  (or (car (assoc-ignore-case charset locale-charset-alist))
+  (or (car (assoc-string charset locale-charset-alist t))
       (let ((cs coding-system-alist)
 	    c)
 	(while (and (not c) cs)