Mercurial > emacs
comparison lisp/vc.el @ 2774:ea8a7ab72d14
(vc-revert-buffer1): Don't assume that compilation-error-list
is a list; it might be t.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Fri, 14 May 1993 03:57:45 +0000 |
| parents | 209f745babd1 |
| children | 286057aa81c7 |
comparison
equal
deleted
inserted
replaced
| 2773:8ab8f28b78d1 | 2774:ea8a7ab72d14 |
|---|---|
| 287 (set-buffer buffer) | 287 (set-buffer buffer) |
| 288 (let ((errors (or | 288 (let ((errors (or |
| 289 compilation-old-error-list | 289 compilation-old-error-list |
| 290 compilation-error-list)) | 290 compilation-error-list)) |
| 291 (buffer-error-marked-p nil)) | 291 (buffer-error-marked-p nil)) |
| 292 (while (and errors | 292 (while (and (consp errors) |
| 293 (not buffer-error-marked-p)) | 293 (not buffer-error-marked-p)) |
| 294 (and (markerp (cdr (car errors))) | 294 (and (markerp (cdr (car errors))) |
| 295 (eq buffer | 295 (eq buffer |
| 296 (marker-buffer | 296 (marker-buffer |
| 297 (cdr (car errors)))) | 297 (cdr (car errors)))) |