aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--lisp/international/codepage.el13
1 files changed, 8 insertions, 5 deletions
diff --git a/lisp/international/codepage.el b/lisp/international/codepage.el
index 400907f4db7..4816fce0f57 100644
--- a/lisp/international/codepage.el
+++ b/lisp/international/codepage.el
@@ -53,7 +53,9 @@ ENCODER is a translation table for encoding Emacs multibyte characters into
53external DOS codepage codes. 53external DOS codepage codes.
54 54
55Note that the coding systems created by this function support automatic 55Note that the coding systems created by this function support automatic
56detection of the EOL format." 56detection of the EOL format. However, the decoders and encoders created
57for these coding systems only support DOS and Unix style EOLs (the -mac
58variety is actually just an alias for the -unix variety)."
57 (save-match-data 59 (save-match-data
58 (let* ((coding-name (symbol-name coding)) 60 (let* ((coding-name (symbol-name coding))
59 (ccl-decoder-dos 61 (ccl-decoder-dos
@@ -409,13 +411,14 @@ character' is generated by (make-char CHARSET OFFSET)."
409 411
410;;;###autoload 412;;;###autoload
411(defun cp-make-coding-systems-for-codepage (codepage iso-name offset) 413(defun cp-make-coding-systems-for-codepage (codepage iso-name offset)
412 "Create 2 coding systems to convert IBM CODEPAGE into charset ISO-NAME 414 "Create a coding system to convert IBM CODEPAGE into charset ISO-NAME
413whose first character is at offset OFFSET from the beginning of 8-bit 415whose first character is at offset OFFSET from the beginning of 8-bit
414ASCII table. 416ASCII table.
415 417
416The two coding systems are identical except for the EOL conversion: one 418The created coding system has the usual 3 subsidiary systems: for Unix-,
417of them decodes DOS-style EOLs, the other assumes Unix style and doesn't 419DOS- and Mac-style EOL conversion. However, unlike built-in coding
418perform any EOL conversions." 420systems, the Mac-style EOL conversion is currently not supported by the
421decoder and encoder created by this function."
419 (let* ((decode-table (intern (format "%s-decode-table" codepage))) 422 (let* ((decode-table (intern (format "%s-decode-table" codepage)))
420 (nonascii-table 423 (nonascii-table
421 (intern (format "%s-nonascii-translation-table" codepage))) 424 (intern (format "%s-nonascii-translation-table" codepage)))