diff options
| author | Richard M. Stallman | 1993-05-14 03:57:45 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 1993-05-14 03:57:45 +0000 |
| commit | 6fb6ab11e162b9ad21fd1c358dd67f3c0378700c (patch) | |
| tree | 04aef06de586d3be50bc25eeca59ebcb3bda91f7 | |
| parent | 661d3230fb9c718df020512941450054e0647a02 (diff) | |
| download | emacs-6fb6ab11e162b9ad21fd1c358dd67f3c0378700c.tar.gz emacs-6fb6ab11e162b9ad21fd1c358dd67f3c0378700c.zip | |
(vc-revert-buffer1): Don't assume that compilation-error-list
is a list; it might be t.
| -rw-r--r-- | lisp/vc.el | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lisp/vc.el b/lisp/vc.el index 2b7df01e99a..7f17c3cb007 100644 --- a/lisp/vc.el +++ b/lisp/vc.el | |||
| @@ -289,7 +289,7 @@ the master name of FILE; this is appended to an optional list of FLAGS." | |||
| 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 |