From: Richard M. Stallman <rms@gnu.org>
Date: Sun, 18 Nov 2001 06:49:25 +0000 (+0000)
Subject: (string-to-sequence): Make it obsolete.
X-Git-Tag: ttn-vms-21-2-B4~18409
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=48e3f3d7a4b2345b89d5a0a4f1ab7bd97f1896b3;p=emacs.git

(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 f66420a8686..e0ad655cbde 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)