Mercurial > hg > xemacs-beta

diff lisp/prim/obsolete.el @ 195:a2f645c6b9f8 r20-3b24

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-3b24
author cvs
date Mon, 13 Aug 2007 09:59:05 +0200
parents 489f57a838ef
children acd284d43ca1
line wrap: on
line diff
--- a/lisp/prim/obsolete.el	Mon Aug 13 09:58:32 2007 +0200
+++ b/lisp/prim/obsolete.el	Mon Aug 13 09:59:05 2007 +0200
@@ -634,12 +634,11 @@
   "Convert STRING to a sequence of TYPE which contains characters in STRING.
 TYPE should be `list' or `vector'.
 Multibyte characters are concerned."
-  (cond ((eq type 'list)
-	 (mapcar #'identity string))
-	((eq type 'vector)
-	 (mapcar #'identity string))
-	(t
-	 (error "Type must be `list' or `vector'"))))
+  (ecase type
+    (list
+     (mapcar #'identity string))
+    (vector
+     (mapvector #'identity string))))
 
 (defun string-to-list (string)
   "Return a list of characters in STRING."