[Emacs-diffs] Changes to emacs/lisp/emacs-lisp/sregex.el,v

[Juanma Barranquero]

CVSROOT:        /cvsroot/emacs
Module name:    emacs
Changes by:     Juanma Barranquero <lektu>      07/09/26 00:15:55

Index: sregex.el
===================================================================
RCS file: /cvsroot/emacs/emacs/lisp/emacs-lisp/sregex.el,v
retrieving revision 1.14
retrieving revision 1.15
diff -u -b -r1.14 -r1.15
--- sregex.el   26 Jul 2007 05:26:48 -0000      1.14
+++ sregex.el   26 Sep 2007 00:15:54 -0000      1.15
@@ -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)))