# HG changeset patch
# User Juanma Barranquero <lekktu@gmail.com>
# Date 1190765754 0
# Node ID e2e245301b8c1a808c32544c130ac2b7c9a5dc5f
# Parent  a164ccfc4d792ba238c57f104a89c743dc79404a
(sregex--char-aux): Use `mapc' rather than `mapcar'.

diff -r a164ccfc4d79 -r e2e245301b8c lisp/emacs-lisp/sregex.el
--- a/lisp/emacs-lisp/sregex.el	Wed Sep 26 00:15:30 2007 +0000
+++ b/lisp/emacs-lisp/sregex.el	Wed Sep 26 00:15:54 2007 +0000
@@ -565,7 +565,7 @@
   (let ((chars (make-bool-vector 256 nil))) ; Yeah, right!
     (dolist (arg args)
       (cond ((integerp arg) (aset chars arg t))
-	    ((stringp arg) (mapcar (lambda (c) (aset chars c t)) arg))
+	    ((stringp arg) (mapc (lambda (c) (aset chars c t)) arg))
 	    ((consp arg)
 	     (let ((start (car arg))
 		   (end (cdr arg)))