666 |
(cp-make-coding-systems-for-codepage |
(cp-make-coding-systems-for-codepage |
667 |
cp (cp-charset-for-codepage cp) (cp-offset-for-codepage cp))))) |
cp (cp-charset-for-codepage cp) (cp-offset-for-codepage cp))))) |
668 |
|
|
669 |
|
;; Add DOS codepages to `non-iso-charset-alist'. |
670 |
|
(eval-after-load "mule-diag" |
671 |
|
'(let ((tail (cp-supported-codepages)) |
672 |
|
elt) |
673 |
|
(while tail |
674 |
|
(setq elt (car tail) tail (cdr tail)) |
675 |
|
;; Now ELT is (CODEPAGE . CHARSET), where CODEPAGE is a string |
676 |
|
;; (e.g. "850"), CHARSET is a charset that characters in CODEPAGE |
677 |
|
;; are mapped to. |
678 |
|
(unless (assq (intern (concat "cp" (car elt))) non-iso-charset-alist) |
679 |
|
(setq non-iso-charset-alist |
680 |
|
(cons (list (intern (concat "cp" (car elt))) |
681 |
|
(list 'ascii (cdr elt)) |
682 |
|
`(lambda (code) |
683 |
|
(decode-codepage-char ,(string-to-int (car elt)) |
684 |
|
code)) |
685 |
|
(list (list 0 255))) |
686 |
|
non-iso-charset-alist)))))) |
687 |
|
|
688 |
(provide 'codepage) |
(provide 'codepage) |
689 |
|
|
690 |
|
;;; arch-tag: 80328de8-b94e-4386-be26-5876105731f0 |
691 |
;;; codepage.el ends here |
;;; codepage.el ends here |