diff options
| author | Juanma Barranquero <lekktu@gmail.com> | 2007-09-26 00:15:54 +0000 |
|---|---|---|
| committer | Juanma Barranquero <lekktu@gmail.com> | 2007-09-26 00:15:54 +0000 |
| commit | 415741a73e4e4e5a78990b2e88008a4e21bf624a (patch) | |
| tree | d70efdbf8b3e9546b88c5e3df432490779732afb /lisp/emacs-lisp/sregex.el | |
| parent | d74d9a81f64671e00b375955eb12d213a0cc3a53 (diff) | |
| download | emacs-415741a73e4e4e5a78990b2e88008a4e21bf624a.tar.gz emacs-415741a73e4e4e5a78990b2e88008a4e21bf624a.tar.bz2 emacs-415741a73e4e4e5a78990b2e88008a4e21bf624a.zip | |
(sregex--char-aux): Use `mapc' rather than `mapcar'.
Diffstat (limited to 'lisp/emacs-lisp/sregex.el')
| -rw-r--r-- | lisp/emacs-lisp/sregex.el | 2 |
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))) |