comparison lisp/international/code-pages.el @ 48753:d9e64bc9e308

(mule-diag): Move where it's required.

48752:a2724f1976f3

;; Although the tables used here aren't very big, it might be worth
;; splitting the file and autoloading the coding systems if/when my
;; (or similar) autoloading code is installed.

;;; Code:

(require 'mule-diag)			; for non-iso-charset-alist

(defun cp-make-translation-table (v)
  "Return a translation table made from 128-long vector V.
V comprises characters encodable by mule-utf-8."
  (let ((encoding-vector (make-vector 256 0)))

  (let ((cp (format "cp%s" codepage)))
    (unless (coding-system-p (intern cp))
      (cp-make-coding-systems-for-codepage
       cp (cp-charset-for-codepage cp) (cp-offset-for-codepage cp))))))
)					; eval-after-load

;; Macro to allow ccl compilation at byte-compile time, avoiding
;; loading ccl.
;;;###autoload
(defmacro cp-make-coding-system (name v &optional doc-string mnemonic)

48753:d9e64bc9e308

;; Although the tables used here aren't very big, it might be worth
;; splitting the file and autoloading the coding systems if/when my
;; (or similar) autoloading code is installed.

;;; Code:

(defun cp-make-translation-table (v)
  "Return a translation table made from 128-long vector V.
V comprises characters encodable by mule-utf-8."
  (let ((encoding-vector (make-vector 256 0)))

  (let ((cp (format "cp%s" codepage)))
    (unless (coding-system-p (intern cp))
      (cp-make-coding-systems-for-codepage
       cp (cp-charset-for-codepage cp) (cp-offset-for-codepage cp))))))
)					; eval-after-load

;; For `non-iso-charset-alist'.  Do this after redefining
;; `cp-supported-codepages', which is called through loading
;; mule-diag.
(require 'mule-diag)

;; Macro to allow ccl compilation at byte-compile time, avoiding
;; loading ccl.
;;;###autoload
(defmacro cp-make-coding-system (name v &optional doc-string mnemonic)