From: Juanma Barranquero <lekktu@gmail.com>
Date: Wed, 26 Sep 2007 00:15:54 +0000 (+0000)
Subject: (sregex--char-aux): Use `mapc' rather than `mapcar'.
X-Git-Tag: emacs-pretest-23.0.90~10638
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=415741a73e4e4e5a78990b2e88008a4e21bf624a;p=emacs.git

(sregex--char-aux): Use `mapc' rather than `mapcar'.
---

diff --git a/lisp/emacs-lisp/sregex.el b/lisp/emacs-lisp/sregex.el
index 901156cefc3..d4deb0f9101 100644
--- a/lisp/emacs-lisp/sregex.el
+++ b/lisp/emacs-lisp/sregex.el
@@ -565,7 +565,7 @@ has one of the following forms:
   (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)))