mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-12-15 09:47:20 +00:00
Code Issues Releases Activity

(compile-collect-regexps): Use dolist and push.

Browse Source
This commit is contained in:
Stefan Monnier 2000-10-05 23:47:14 +00:00
parent dcf4ae738b
commit 02c1bd081b
1 changed files with 2 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
lisp/progmodes/compile.el
View File

@ -1987,11 +1987,8 @@ An error message with no file name and no file name has been seen earlier"))
;; 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."