diff options
| author | Richard M. Stallman | 1993-05-01 03:09:16 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 1993-05-01 03:09:16 +0000 |
| commit | a1bda481b9df6e10879d85ed3020069f626fc58f (patch) | |
| tree | 44e20b79a39c6b5738803f095c89355851140cab | |
| parent | 2abef901fdb4c6dd7f7e29e6ab9d9c8319d02a2e (diff) | |
| download | emacs-a1bda481b9df6e10879d85ed3020069f626fc58f.tar.gz emacs-a1bda481b9df6e10879d85ed3020069f626fc58f.zip | |
(vc-revert-buffer1): Fix format of compilation-error-list.
| -rw-r--r-- | lisp/vc.el | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lisp/vc.el b/lisp/vc.el index 434f2543148..2e0fa62eac0 100644 --- a/lisp/vc.el +++ b/lisp/vc.el | |||
| @@ -282,10 +282,10 @@ the master name of FILE; this is appended to an optional list of FLAGS." | |||
| 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))) |