APPROVE COMMIT NOTE: This patch has been committed. lisp/ChangeLog addition: 2007-11-14 Aidan Kehoe <kehoea(a)parhasard.net&gt; * subr.el (string-to-sequence): * subr.el (string-to-list): * subr.el (string-to-vector): (append STRING nil) is faster than (mapcar #'identity STRING), (vconcat STRING) is faster than (mapcar #'identity STRING). Change from GNU. XEmacs Trunk source patch: Diff command: cvs -q diff -Nu Files affected: lisp/subr.el =================================================================== RCS Index: lisp/subr.el =================================================================== RCS file: /pack/xemacscvs/XEmacs/xemacs/lisp/subr.el,v retrieving revision 1.43 diff -u -u -r1.43 subr.el --- lisp/subr.el 2007/11/14 18:51:31 1.43 +++ lisp/subr.el 2007/11/14 19:23:25 ＠＠ -947,17 +947,17 ＠＠ TYPE should be `list' or `vector'." (ecase type (list - (mapcar #'identity string)) + (append string nil)) (vector - (mapvector #'identity string)))) + (vconcat string)))) (defun string-to-list (string) "Return a list of characters in STRING." - (mapcar #'identity string)) + (append string nil)) (defun string-to-vector (string) "Return a vector of characters in STRING." - (mapvector #'identity string)) + (vconcat string)) (defun store-substring (string idx obj) "Embed OBJ (string or character) at index IDX of STRING." -- On the quay of the little Black Sea port, where the rescued pair came once more into contact with civilization, Dobrinton was bitten by a dog which was assumed to be mad, though it may only have been indiscriminating. (Saki) _______________________________________________ XEmacs-Patches mailing list XEmacs-Patches(a)xemacs.org http://calypso.tux.org/cgi-bin/mailman/listinfo/xemacs-patches