[COMMIT] Make string-to-list, string-to-sequence faster, simpler (change from GNU)
APPROVE COMMIT
NOTE: This patch has been committed.
lisp/ChangeLog addition:
2007-11-14 Aidan Kehoe <kehoea(a)parhasard.net>
* 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