changeset 41232:43e756c38f4f

(string-to-sequence): Make it obsolete. (string-to-list, string-to-vector): Implement them directly using append and vconcat, not with string-to-sequence.

--- a/lisp/international/mule-util.el	Sun Nov 18 06:48:18 2001 +0000
+++ b/lisp/international/mule-util.el	Sun Nov 18 06:49:25 2001 +0000
@@ -56,16 +56,19 @@
 	   (error "Invalid type: %s" type)))
 ;;;    val)
 )
+(make-obsolete 'string-to-sequence
+	       "Use `string-to-list' or `string-to-vector'"
+	       "21.3")
 
 ;;;###autoload
 (defsubst string-to-list (string)
   "Return a list of characters in STRING."
-  (string-to-sequence string 'list))
+  (append string nil))
 
 ;;;###autoload
 (defsubst string-to-vector (string)
   "Return a vector of characters in STRING."
-  (string-to-sequence string 'vector))
+  (vconcat string))
 
 ;;;###autoload
 (defun store-substring (string idx obj)