comparison lisp/international/codepage.el @ 52435:528d8a1b09d5

("mule-diag"): Add eval-after-load clause.

52434:14a91089126a

    (or (and cp-defined  ;; avoid defining if already defined
	     (coding-system-p cp-defined))
	(cp-make-coding-systems-for-codepage
	 cp (cp-charset-for-codepage cp) (cp-offset-for-codepage cp)))))

(provide 'codepage)

;;; arch-tag: 80328de8-b94e-4386-be26-5876105731f0
;;; codepage.el ends here

52435:528d8a1b09d5

    (or (and cp-defined  ;; avoid defining if already defined
	     (coding-system-p cp-defined))
	(cp-make-coding-systems-for-codepage
	 cp (cp-charset-for-codepage cp) (cp-offset-for-codepage cp)))))

;; Add DOS codepages to `non-iso-charset-alist'.
(eval-after-load "mule-diag"
  '(let ((tail (cp-supported-codepages))
	 elt)
     (while tail
       (setq elt (car tail) tail (cdr tail))
       ;; Now ELT is (CODEPAGE . CHARSET), where CODEPAGE is a string
       ;; (e.g. "850"), CHARSET is a charset that characters in CODEPAGE
       ;; are mapped to.
       (unless (assq (intern (concat "cp" (car elt))) non-iso-charset-alist)
	 (setq non-iso-charset-alist
	       (cons (list (intern (concat "cp" (car elt)))
			   (list 'ascii (cdr elt))
			   `(lambda (code)
			      (decode-codepage-char ,(string-to-int (car elt))
						    code))
			   (list (list 0 255)))
		     non-iso-charset-alist))))))

(provide 'codepage)

;;; arch-tag: 80328de8-b94e-4386-be26-5876105731f0
;;; codepage.el ends here