procyberian/emacs
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

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

Browse source
This commit is contained in:
Juanma Barranquero 2007-09-26 00:15:54 +00:00
parent d74d9a81f6
commit 415741a73e
1 changed files with 1 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

2
lisp/emacs-lisp/sregex.el
View file

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