Lines Matching +defs:table +defs:string
37 (defun string-to-sequence (string type)
40 ;;; (let ((len (length string))
46 (append string nil))
50 ;;; (setcar l (aref string i))
54 (vconcat string))
57 ;;; (aset val i (aref string i))
65 (make-obsolete 'string-to-sequence
66 "use `string-to-list' or `string-to-vector'."
70 (defsubst string-to-list (string)
72 (append string nil))
75 (defsubst string-to-vector (string)
77 (vconcat string))
80 (defun store-substring (string idx obj)
81 "Embed OBJ (string or character) at index IDX of STRING."
83 (aset string idx obj)
85 (len2 (length string))
88 (aset string (+ idx i) (aref obj i))
90 string)
93 (defun truncate-string-to-width (str end-column
95 "Truncate string STR to end at column END-COLUMN.
110 the resulting string may be narrower than END-COLUMN.
112 If ELLIPSIS is non-nil, it should be a string which will replace the
115 width of ELLIPSIS. If it is non-nil and not a string, then ELLIPSIS
122 (str-width (string-width str))
124 (ellipsis-width (if ellipsis (string-width ellipsis) 0))
136 (if padding (make-string end-column padding) "")
138 (setq head-padding (make-string (- column start-column) padding)))
157 (setq tail-padding (make-string (- end-column column) padding))))
161 ;;; Test suite for truncate-string-to-width
203 ;; (setq ret (apply #'truncate-string-to-width (car test)))
207 ;; (prin1-to-string (cons 'truncate-string-to-width (car test)))
208 ;; (prin1-to-string (cdr test))
211 ;; (prin1-to-string (cdr ret)))
212 ;; (prin1-to-string ret))))))
229 can be a string, a vector, or a list."
307 (defun coding-system-translation-table-for-decode (coding-system)
308 "Return the value of CODING-SYSTEM's `translation-table-for-decode' property."
309 (coding-system-get coding-system 'translation-table-for-decode))
312 (defun coding-system-translation-table-for-encode (coding-system)
313 "Return the value of CODING-SYSTEM's `translation-table-for-encode' property."
314 (coding-system-get coding-system 'translation-table-for-encode))