(string-to-sequence): Make it obsolete.

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

diff --git a/lisp/international/mule-util.el b/lisp/international/mule-util.el
index f66420a868621c180ef96749eead4d56ed03a403..e0ad655cbde59cb430156140d4dc6df230dc4475 100644 (file)
--- a/lisp/international/mule-util.el
+++ b/lisp/international/mule-util.el
@@ -56,16 +56,19 @@ TYPE should be `list' or `vector'."
           (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)