56 |
(error "Invalid type: %s" type))) |
(error "Invalid type: %s" type))) |
57 |
;;; val) |
;;; val) |
58 |
) |
) |
59 |
|
(make-obsolete 'string-to-sequence |
60 |
|
"Use `string-to-list' or `string-to-vector'" |
61 |
|
"21.3") |
62 |
|
|
63 |
;;;###autoload |
;;;###autoload |
64 |
(defsubst string-to-list (string) |
(defsubst string-to-list (string) |
65 |
"Return a list of characters in STRING." |
"Return a list of characters in STRING." |
66 |
(string-to-sequence string 'list)) |
(append string nil)) |
67 |
|
|
68 |
;;;###autoload |
;;;###autoload |
69 |
(defsubst string-to-vector (string) |
(defsubst string-to-vector (string) |
70 |
"Return a vector of characters in STRING." |
"Return a vector of characters in STRING." |
71 |
(string-to-sequence string 'vector)) |
(vconcat string)) |
72 |
|
|
73 |
;;;###autoload |
;;;###autoload |
74 |
(defun store-substring (string idx obj) |
(defun store-substring (string idx obj) |