1 files changed, 1 insertions, 1 deletions

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)))