408 |
|
|
409 |
;; Same as compound-text, but doesn't produce composition escape |
;; Same as compound-text, but doesn't produce composition escape |
410 |
;; sequences. Used in post-read and pre-write conversions of |
;; sequences. Used in post-read and pre-write conversions of |
411 |
;; ctext-with-extensions, below. |
;; ctext-with-extensions, below. Note that this should not have a |
412 |
|
;; mime-charset property, to prevent it from showing up close to the |
413 |
|
;; beginning of coding systems ordered by priority. |
414 |
(make-coding-system |
(make-coding-system |
415 |
'ctext-no-compositions 2 ?x |
'ctext-no-compositions 2 ?x |
416 |
"Compound text based generic encoding for decoding unknown messages. |
"Compound text based generic encoding for decoding unknown messages. |
419 |
'((ascii t) (latin-iso8859-1 katakana-jisx0201 t) t t |
'((ascii t) (latin-iso8859-1 katakana-jisx0201 t) t t |
420 |
nil ascii-eol ascii-cntl nil locking-shift single-shift nil nil nil |
nil ascii-eol ascii-cntl nil locking-shift single-shift nil nil nil |
421 |
init-bol nil nil) |
init-bol nil nil) |
422 |
'((safe-charsets . t) |
'((safe-charsets . t))) |
|
(mime-charset . x-ctext))) |
|
423 |
|
|
424 |
(defvar non-standard-icccm-encodings-alist |
(defvar non-standard-icccm-encodings-alist |
425 |
'(("ISO8859-15" . latin-iso8859-15) |
'(("ISO8859-15" . latin-iso8859-15) |