Mercurial > emacs

comparison lisp/progmodes/compile.el @ 6989:3723e842825c

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(compilation-parse-errors): Fix references for column number, 3 elt not 2nd.
author Roland McGrath <roland@gnu.org>
date Wed, 20 Apr 1994 19:52:37 +0000
parents 137122de77ef
children 5da29eb68c82
comparison
equal deleted inserted replaced
6988:674dceb3bb4f 6989:3723e842825c
1098 (while alist 1098 (while alist
1099 (setq error-regexp-groups 1099 (setq error-regexp-groups
1100 (cons (list subexpr 1100 (cons (list subexpr
1101 (+ subexpr (nth 1 (car alist))) 1101 (+ subexpr (nth 1 (car alist)))
1102 (+ subexpr (nth 2 (car alist))) 1102 (+ subexpr (nth 2 (car alist)))
1103 (and (nth 2 (car alist)) 1103 (and (nth 3 (car alist))
1104 (+ subexpr (nth 2 (car alist))))) 1104 (+ subexpr (nth 3 (car alist)))))
1105 error-regexp-groups)) 1105 error-regexp-groups))
1106 (setq subexpr (+ subexpr 1 (count-regexp-groupings (car (car alist))))) 1106 (setq subexpr (+ subexpr 1 (count-regexp-groupings (car (car alist)))))
1107 (setq alist (cdr alist))) 1107 (setq alist (cdr alist)))
1108 1108
1109 (setq orig default-directory) 1109 (setq orig default-directory)