diff options
| author | Juanma Barranquero <lekktu@gmail.com> | 2005-05-06 19:25:10 +0000 |
|---|---|---|
| committer | Juanma Barranquero <lekktu@gmail.com> | 2005-05-06 19:25:10 +0000 |
| commit | 5d10503f56a5f7ce208f5378dd0311343cf0d593 (patch) | |
| tree | 29437d2951a479b7d810971f946bf46c959d2f6d /lisp/textmodes/po.el | |
| parent | 2c6b25c7660922951c1a654de6737671a089d465 (diff) | |
| download | emacs-5d10503f56a5f7ce208f5378dd0311343cf0d593.tar.gz emacs-5d10503f56a5f7ce208f5378dd0311343cf0d593.tar.bz2 emacs-5d10503f56a5f7ce208f5378dd0311343cf0d593.zip | |
(po-find-file-coding-system-guts): Replace `assoc-ignore-case' by
`assoc-string'.
Diffstat (limited to 'lisp/textmodes/po.el')
| -rw-r--r-- | lisp/textmodes/po.el | 21 |
1 files 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)))))))) |