Commit 5d10503f authored by Juanma Barranquero's avatar Juanma Barranquero
Browse files

(po-find-file-coding-system-guts): Replace `assoc-ignore-case' by

`assoc-string'.
parent 2c6b25c7
......@@ -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))))))))
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment