Mercurial > hg > xemacs-beta

comparison lisp/mule/mule-util.el @ 167:85ec50267440 r20-3b10

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-3b10
author cvs
date Mon, 13 Aug 2007 09:45:46 +0200
parents 5a88923fcbfe
children b405438285a2
comparison
equal deleted inserted replaced
166:7a77eb660975 167:85ec50267440
26 ;;; Code: 26 ;;; Code:
27 27
28 ;;; String manipulations while paying attention to multibyte 28 ;;; String manipulations while paying attention to multibyte
29 ;;; characters. 29 ;;; characters.
30 30
31 ;;;###autoload 31 ;; [Was defsubst]
32 (defsubst string-to-sequence (string type) 32 ;;;###autoload
33 (defun string-to-sequence (string type)
33 "Convert STRING to a sequence of TYPE which contains characters in STRING. 34 "Convert STRING to a sequence of TYPE which contains characters in STRING.
34 TYPE should be `list' or `vector'. 35 TYPE should be `list' or `vector'.
35 Multibyte characters are conserned." 36 Multibyte characters are concerned."
36 (map type (function identity) string)) 37 (map type (function identity) string))
37 38
38 ;;;###autoload 39 ;; [Was defsubst]
39 (defsubst string-to-list (string) 40 ;;;###autoload
41 (defun string-to-list (string)
40 "Return a list of characters in STRING." 42 "Return a list of characters in STRING."
41 (mapcar (function identity) string)) 43 (mapcar (function identity) string))
42 44
43 ;;;###autoload 45 ;; [Was defsubst]
44 (defsubst string-to-vector (string) 46 ;;;###autoload
47 (defun string-to-vector (string)
45 "Return a vector of characters in STRING." 48 "Return a vector of characters in STRING."
46 (string-to-sequence string 'vector)) 49 (string-to-sequence string 'vector))
47 50
48 ;;;###autoload 51 ;;;###autoload
49 (defun store-substring (string idx obj) 52 (defun store-substring (string idx obj)
109 (make-obsolete 'truncate-string 'truncate-string-to-width) 112 (make-obsolete 'truncate-string 'truncate-string-to-width)
110 113
111 ;;; Nested alist handler. Nested alist is alist whose elements are 114 ;;; Nested alist handler. Nested alist is alist whose elements are
112 ;;; also nested alist. 115 ;;; also nested alist.
113 116
114 ;;;###autoload 117 ;; [Was defsubst]
115 (defsubst nested-alist-p (obj) 118 ;;;###autoload
119 (defun nested-alist-p (obj)
116 "Return t if OBJ is a nesetd alist. 120 "Return t if OBJ is a nesetd alist.
117 121
118 Nested alist is a list of the form (ENTRY . BRANCHES), where ENTRY is 122 Nested alist is a list of the form (ENTRY . BRANCHES), where ENTRY is
119 any Lisp object, and BRANCHES is a list of cons cells of the form 123 any Lisp object, and BRANCHES is a list of cons cells of the form
120 (KEY-ELEMENT . NESTED-ALIST). 124 (KEY-ELEMENT . NESTED-ALIST).