Mercurial > emacs
comparison lisp/vc.el @ 2617:e2e5dfa162b4
(vc-revert-buffer1): Fix format of compilation-error-list.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Sat, 01 May 1993 03:09:16 +0000 |
| parents | f9f844a39a29 |
| children | 334f3eeb459d |
comparison
equal
deleted
inserted
replaced
| 2616:3123ece1f2ad | 2617:e2e5dfa162b4 |
|---|---|
| 280 compilation-old-error-list | 280 compilation-old-error-list |
| 281 compilation-error-list)) | 281 compilation-error-list)) |
| 282 (buffer-error-marked-p nil)) | 282 (buffer-error-marked-p nil)) |
| 283 (while (and errors | 283 (while (and errors |
| 284 (not buffer-error-marked-p)) | 284 (not buffer-error-marked-p)) |
| 285 (and (markerp (car (cdr (car errors)))) | 285 (and (markerp (cdr (car errors))) |
| 286 (eq buffer | 286 (eq buffer |
| 287 (marker-buffer | 287 (marker-buffer |
| 288 (car (cdr (car errors))))) | 288 (cdr (car errors)))) |
| 289 (setq buffer-error-marked-p t)) | 289 (setq buffer-error-marked-p t)) |
| 290 (setq errors (cdr errors))) | 290 (setq errors (cdr errors))) |
| 291 (if buffer-error-marked-p buffer))) | 291 (if buffer-error-marked-p buffer))) |
| 292 (buffer-list))))))) | 292 (buffer-list))))))) |
| 293 | 293 |