/[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.25.2.1 by miles, Fri Apr 4 06:20:21 2003 UTC revision 1.25.2.2 by miles, Tue Oct 14 23:39:23 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
691  ;;; codepage.el ends here  ;;; codepage.el ends here

Legend:
Removed from v.1.25.2.1  
changed lines
  Added in v.1.25.2.2

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