diff options
| -rw-r--r-- | lisp/progmodes/compile.el | 7 |
1 files changed, 2 insertions, 5 deletions
diff --git a/lisp/progmodes/compile.el b/lisp/progmodes/compile.el index 44556d8185f..77bf8bf0ad0 100644 --- a/lisp/progmodes/compile.el +++ b/lisp/progmodes/compile.el | |||
| @@ -1987,11 +1987,8 @@ An error message with no file name and no file name has been seen earlier")) | |||
| 1987 | ;; Add elements to variable compilation-regexps that is bound in | 1987 | ;; Add elements to variable compilation-regexps that is bound in |
| 1988 | ;; compilation-parse-errors. | 1988 | ;; compilation-parse-errors. |
| 1989 | (and (not (eq this t)) | 1989 | (and (not (eq this t)) |
| 1990 | (while this | 1990 | (dolist (el this) |
| 1991 | (setq compilation-regexps | 1991 | (push (cons (car el) (cons type (cdr el))) compilation-regexps)))) |
| 1992 | (cons (cons (car (car this)) (cons type (cdr (car this)))) | ||
| 1993 | compilation-regexps)) | ||
| 1994 | (setq this (cdr this))))) | ||
| 1995 | 1992 | ||
| 1996 | (defun compile-buffer-substring (index) | 1993 | (defun compile-buffer-substring (index) |
| 1997 | "Get substring matched by INDEXth subexpression." | 1994 | "Get substring matched by INDEXth subexpression." |