195 |
;; (("こhんeにlちlはo" 13 4 ?x "日本語") . "xex日本語") |
;; (("こhんeにlちlはo" 13 4 ?x "日本語") . "xex日本語") |
196 |
;; )) |
;; )) |
197 |
;; (let (ret) |
;; (let (ret) |
198 |
;; (condition-case e |
;; (condition-case e |
199 |
;; (setq ret (apply #'truncate-string-to-width (car test))) |
;; (setq ret (apply #'truncate-string-to-width (car test))) |
200 |
;; (error (setq ret e))) |
;; (error (setq ret e))) |
201 |
;; (unless (equal ret (cdr test)) |
;; (unless (equal ret (cdr test)) |
294 |
;; Coding system related functions. |
;; Coding system related functions. |
295 |
|
|
296 |
;;;###autoload |
;;;###autoload |
|
(defun coding-system-eol-type-mnemonic (coding-system) |
|
|
"Return the string indicating end-of-line format of CODING-SYSTEM." |
|
|
(let* ((eol-type (coding-system-eol-type coding-system)) |
|
|
(val (cond ((vectorp eol-type) eol-mnemonic-undecided) |
|
|
((eq eol-type 0) eol-mnemonic-unix) |
|
|
((eq eol-type 1) eol-mnemonic-dos) |
|
|
((eq eol-type 2) eol-mnemonic-mac) |
|
|
(t "-")))) |
|
|
(if (stringp val) |
|
|
val |
|
|
(char-to-string val)))) |
|
|
|
|
|
;;;###autoload |
|
297 |
(defun coding-system-post-read-conversion (coding-system) |
(defun coding-system-post-read-conversion (coding-system) |
298 |
"Return the value of CODING-SYSTEM's `post-read-conversion' property." |
"Return the value of CODING-SYSTEM's `post-read-conversion' property." |
299 |
(coding-system-get coding-system 'post-read-conversion)) |
(coding-system-get coding-system 'post-read-conversion)) |