diff options
| author | Juanma Barranquero | 2007-09-26 00:15:54 +0000 |
|---|---|---|
| committer | Juanma Barranquero | 2007-09-26 00:15:54 +0000 |
| commit | 415741a73e4e4e5a78990b2e88008a4e21bf624a (patch) | |
| tree | d70efdbf8b3e9546b88c5e3df432490779732afb | |
| parent | d74d9a81f64671e00b375955eb12d213a0cc3a53 (diff) | |
| download | emacs-415741a73e4e4e5a78990b2e88008a4e21bf624a.tar.gz emacs-415741a73e4e4e5a78990b2e88008a4e21bf624a.zip | |
(sregex--char-aux): Use `mapc' rather than `mapcar'.
| -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: | |||
| 565 | (let ((chars (make-bool-vector 256 nil))) ; Yeah, right! | 565 | (let ((chars (make-bool-vector 256 nil))) ; Yeah, right! |
| 566 | (dolist (arg args) | 566 | (dolist (arg args) |
| 567 | (cond ((integerp arg) (aset chars arg t)) | 567 | (cond ((integerp arg) (aset chars arg t)) |
| 568 | ((stringp arg) (mapcar (lambda (c) (aset chars c t)) arg)) | 568 | ((stringp arg) (mapc (lambda (c) (aset chars c t)) arg)) |
| 569 | ((consp arg) | 569 | ((consp arg) |
| 570 | (let ((start (car arg)) | 570 | (let ((start (car arg)) |
| 571 | (end (cdr arg))) | 571 | (end (cdr arg))) |