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

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

1 files changed, 5 insertions, 2 deletions

diff --git a/lisp/international/mule-util.el b/lisp/international/mule-util.el
index f66420a868..e0ad655cbd 100644
--- 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)