/[emacs]/emacs/lisp/international/codepage.el
ViewVC logotype

Diff of /emacs/lisp/international/codepage.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.28 by miles, Mon Sep 1 15:45:28 2003 UTC revision 1.29 by fx, Thu Sep 4 16:59:46 2003 UTC
# Line 666  read/written by MS-DOS software, or for Line 666  read/written by MS-DOS software, or for
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  ;;; arch-tag: 80328de8-b94e-4386-be26-5876105731f0

Legend:
Removed from v.1.28  
changed lines
  Added in v.1.29

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26