56 |
(error "Invalid type: %s" type))) |
(error "Invalid type: %s" type))) |
57 |
;;; val) |
;;; val) |
58 |
) |
) |
59 |
|
|
60 |
|
;;;###autoload |
61 |
(make-obsolete 'string-to-sequence |
(make-obsolete 'string-to-sequence |
62 |
"Use `string-to-list' or `string-to-vector'" |
"use `string-to-list' or `string-to-vector'." |
63 |
"21.3") |
"21.4") |
64 |
|
|
65 |
;;;###autoload |
;;;###autoload |
66 |
(defsubst string-to-list (string) |
(defsubst string-to-list (string) |
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)) |
210 |
;;; For backward compatibility ... |
;;; For backward compatibility ... |
211 |
;;;###autoload |
;;;###autoload |
212 |
(defalias 'truncate-string 'truncate-string-to-width) |
(defalias 'truncate-string 'truncate-string-to-width) |
213 |
|
|
214 |
|
;;;###autoload |
215 |
(make-obsolete 'truncate-string 'truncate-string-to-width "20.1") |
(make-obsolete 'truncate-string 'truncate-string-to-width "20.1") |
216 |
|
|
217 |
;;; Nested alist handler. Nested alist is alist whose elements are |
;;; Nested alist handler. Nested alist is alist whose elements are |
223 |
|
|
224 |
Nested alist is a list of the form (ENTRY . BRANCHES), where ENTRY is |
Nested alist is a list of the form (ENTRY . BRANCHES), where ENTRY is |
225 |
any Lisp object, and BRANCHES is a list of cons cells of the form |
any Lisp object, and BRANCHES is a list of cons cells of the form |
226 |
(KEY-ELEMENT . NESTED-ALIST). |
\(KEY-ELEMENT . NESTED-ALIST). |
227 |
|
|
228 |
You can use a nested alist to store any Lisp object (ENTRY) for a key |
You can use a nested alist to store any Lisp object (ENTRY) for a key |
229 |
sequence KEYSEQ, where KEYSEQ is a sequence of KEY-ELEMENT. KEYSEQ |
sequence KEYSEQ, where KEYSEQ is a sequence of KEY-ELEMENT. KEYSEQ |
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)) |