comparison lisp/international/codepage.el @ 23952:4ef8ec98dd43

(cp-make-coding-systems-for-codepage): Doc fix. (cp-coding-system-for-codepage-1): Likewise.

23951:ef1cba882819

encoding to Emacs multibyte characters.
ENCODER is a translation table for encoding Emacs multibyte characters into
external DOS codepage codes.

Note that the coding systems created by this function support automatic
detection of the EOL format."
  (save-match-data
    (let* ((coding-name (symbol-name coding))
	   (ccl-decoder-dos
	    (ccl-compile
	     `(4 (loop (read r1)

(setplist 'cp775-decode-table
	  '(charset latin-iso8859-4 language "Latin-4" offset 160))

;;;###autoload
(defun cp-make-coding-systems-for-codepage (codepage iso-name offset)
  "Create 2 coding systems to convert IBM CODEPAGE into charset ISO-NAME
whose first character is at offset OFFSET from the beginning of 8-bit
ASCII table.

The two coding systems are identical except for the EOL conversion: one
of them decodes DOS-style EOLs, the other assumes Unix style and doesn't
perform any EOL conversions."
  (let* ((decode-table (intern (format "%s-decode-table" codepage)))
	 (nonascii-table
	  (intern (format "%s-nonascii-translation-table" codepage)))
	 (decode-translation
	  (intern (format "%s-decode-translation-table" codepage)))

23952:4ef8ec98dd43

encoding to Emacs multibyte characters.
ENCODER is a translation table for encoding Emacs multibyte characters into
external DOS codepage codes.

Note that the coding systems created by this function support automatic
detection of the EOL format.  However, the decoders and encoders created
for these coding systems only support DOS and Unix style EOLs (the -mac
variety is actually just an alias for the -unix variety)."
  (save-match-data
    (let* ((coding-name (symbol-name coding))
	   (ccl-decoder-dos
	    (ccl-compile
	     `(4 (loop (read r1)

(setplist 'cp775-decode-table
	  '(charset latin-iso8859-4 language "Latin-4" offset 160))

;;;###autoload
(defun cp-make-coding-systems-for-codepage (codepage iso-name offset)
  "Create a coding system to convert IBM CODEPAGE into charset ISO-NAME
whose first character is at offset OFFSET from the beginning of 8-bit
ASCII table.

The created coding system has the usual 3 subsidiary systems: for Unix-,
DOS- and Mac-style EOL conversion.  However, unlike built-in coding
systems, the Mac-style EOL conversion is currently not supported by the
decoder and encoder created by this function."
  (let* ((decode-table (intern (format "%s-decode-table" codepage)))
	 (nonascii-table
	  (intern (format "%s-nonascii-translation-table" codepage)))
	 (decode-translation
	  (intern (format "%s-decode-translation-table" codepage)))