# HG changeset patch # User Dave Love # Date 1022346268 0 # Node ID fc23956c9f9b96f33db6c2625654d7dcd96e8e5b # Parent 6de1b1663a956489460e3abf4bd281b40e521132 (coding-system-iso-2022-flags): Add use-roman, use-oldjis. diff -r 6de1b1663a95 -r fc23956c9f9b lisp/international/mule.el --- a/lisp/international/mule.el Sat May 25 12:57:30 2002 +0000 +++ b/lisp/international/mule.el Sat May 25 17:04:28 2002 +0000 @@ -345,11 +345,13 @@ safe latin-extra composition - euc-tw-shift) + euc-tw-shift + use-roman + use-oldjis) "List of symbols that control ISO-2022 encoder/decoder. The value of `:flags' attribute in the argument of the function -`define-coding-system' must be one of them. +`define-coding-system' must be composed from them. If `long-form' is specified, use a long designation sequence on encoding for the charsets `japanese-jisx0208-1978', `chinese-gb2312', @@ -399,7 +401,13 @@ on encoding. If `euc-tw-shift' is specified, the EUC-TW specific shifting code is -correctly decoded on decoding, and is produced on encoding.") +correctly decoded on decoding, and is produced on encoding. + +If `use-roman' is specified, JIS0201-1976-Roman is designated instead +of ASCII. + +If `use-oldjis' is specified, JIS0208-1976 is designated instead of +JIS0208-1983.") (defun define-coding-system (name docstring &rest props) "Define NAME (symbol) as a coding system with DOCSTRING and attributes.