From 5d10503f56a5f7ce208f5378dd0311343cf0d593 Mon Sep 17 00:00:00 2001 From: Juanma Barranquero Date: Fri, 6 May 2005 19:25:10 +0000 Subject: [PATCH] (po-find-file-coding-system-guts): Replace `assoc-ignore-case' by `assoc-string'. --- lisp/textmodes/po.el | 21 +++++++++++---------- 1 file changed, 11 insertions(+), 10 deletions(-) diff --git a/lisp/textmodes/po.el b/lisp/textmodes/po.el index a4ec5d3ac8b..c2e58d7d582 100644 --- a/lisp/textmodes/po.el +++ b/lisp/textmodes/po.el @@ -80,14 +80,15 @@ Do so according to FILENAME's declared charset." 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 @@ Do so according to FILENAME's declared charset." ;; 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)))))))) -- 2.39.5