Mercurial > emacs
comparison lisp/progmodes/compile.el @ 7099:59c3c3a1b571
(compilation-next-error-locus): Use compilation-error-message instead of
"Moved past last error" when MOVE is 1 (default value).
| author | Roland McGrath <roland@gnu.org> |
|---|---|
| date | Mon, 25 Apr 1994 22:31:41 +0000 |
| parents | 5da29eb68c82 |
| children | cbe3820953c6 |
comparison
equal
deleted
inserted
replaced
| 7098:9e9d5db094b5 | 7099:59c3c3a1b571 |
|---|---|
| 851 (nthcdr (+ i n) compilation-old-error-list)))) | 851 (nthcdr (+ i n) compilation-old-error-list)))) |
| 852 next-error (car next-errors)) | 852 next-error (car next-errors)) |
| 853 (while | 853 (while |
| 854 (if (null next-error) | 854 (if (null next-error) |
| 855 (progn | 855 (progn |
| 856 (if move (if (> move 0) | 856 (and move (/= move 1) |
| 857 (error "Moved past last error") | 857 (error (if (> move 0) |
| 858 (error "Moved back past first error"))) | 858 "Moved past last error") |
| 859 "Moved back past first error")) | |
| 859 (compilation-forget-errors) | 860 (compilation-forget-errors) |
| 860 (error (concat compilation-error-message | 861 (error (concat compilation-error-message |
| 861 (and (get-buffer-process (current-buffer)) | 862 (and (get-buffer-process (current-buffer)) |
| 862 (eq (process-status | 863 (eq (process-status |
| 863 (get-buffer-process | 864 (get-buffer-process |