mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-23 07:19:15 +00:00
Code Issues Releases Activity

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

Browse Source 
`assoc-string'.
This commit is contained in:
Juanma Barranquero 2005-05-06 19:25:10 +00:00
parent 2c6b25c766
commit 5d10503f56
1 changed files with 11 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

21
lisp/textmodes/po.el
View File

@ -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))))))))