Mercurial > hg > xemacs-beta

comparison 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
comparison
equal deleted inserted replaced
194:2947057885e5 195:a2f645c6b9f8
632 632
633 (defun string-to-sequence (string type) 633 (defun string-to-sequence (string type)
634 "Convert STRING to a sequence of TYPE which contains characters in STRING. 634 "Convert STRING to a sequence of TYPE which contains characters in STRING.
635 TYPE should be `list' or `vector'. 635 TYPE should be `list' or `vector'.
636 Multibyte characters are concerned." 636 Multibyte characters are concerned."
637 (cond ((eq type 'list) 637 (ecase type
638 (mapcar #'identity string)) 638 (list
639 ((eq type 'vector) 639 (mapcar #'identity string))
640 (mapcar #'identity string)) 640 (vector
641 (t 641 (mapvector #'identity string))))
642 (error "Type must be `list' or `vector'"))))
643 642
644 (defun string-to-list (string) 643 (defun string-to-list (string)
645 "Return a list of characters in STRING." 644 "Return a list of characters in STRING."
646 (mapcar #'identity string)) 645 (mapcar #'identity string))
647 646