302 |
(if (boundp 'current-language-environment) |
(if (boundp 'current-language-environment) |
303 |
(let ((lang (symbol-value 'current-language-environment))) |
(let ((lang (symbol-value 'current-language-environment))) |
304 |
(cond ((string= lang "Japanese") |
(cond ((string= lang "Japanese") |
305 |
;; Japanese users may prefer iso-2022-jp to shift-jis. |
;; Japanese users prefer iso-2022-jp to euc-japan or |
306 |
'(iso-2022-jp iso-2022-jp-2 japanese-shift-jis |
;; shift_jis, however iso-8859-1 should be used when |
307 |
iso-latin-1 utf-8))))) |
;; there are only ASCII text and Latin-1 characters. |
308 |
|
'(iso-8859-1 iso-2022-jp iso-2022-jp-2 shift_jis utf-8))))) |
309 |
"Preferred coding systems for encoding outgoing messages. |
"Preferred coding systems for encoding outgoing messages. |
310 |
|
|
311 |
More than one suitable coding system may be found for some text. |
More than one suitable coding system may be found for some text. |