Mercurial > emacs
changeset 32195:e0870d1a8c33
(compile-collect-regexps): Use dolist and push.
| author | Stefan Monnier <monnier@iro.umontreal.ca> |
|---|---|
| date | Thu, 05 Oct 2000 23:47:14 +0000 |
| parents | 6c01019e04af |
| children | 219a95f2ef05 |
| files | lisp/progmodes/compile.el |
| diffstat | 1 files changed, 2 insertions(+), 5 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/progmodes/compile.el Thu Oct 05 23:26:40 2000 +0000 +++ b/lisp/progmodes/compile.el Thu Oct 05 23:47:14 2000 +0000 @@ -1987,11 +1987,8 @@ ;; Add elements to variable compilation-regexps that is bound in ;; compilation-parse-errors. (and (not (eq this t)) - (while this - (setq compilation-regexps - (cons (cons (car (car this)) (cons type (cdr (car this)))) - compilation-regexps)) - (setq this (cdr this))))) + (dolist (el this) + (push (cons (car el) (cons type (cdr el))) compilation-regexps)))) (defun compile-buffer-substring (index) "Get substring matched by INDEXth subexpression."