diff options
| author | Eric S. Raymond | 2008-05-02 03:38:16 +0000 |
|---|---|---|
| committer | Eric S. Raymond | 2008-05-02 03:38:16 +0000 |
| commit | a094fe434f1322399cd9b9a9eeb3f2c67b226e28 (patch) | |
| tree | 9160702021bc56b633e35755763857a5238c8ac8 | |
| parent | 105cac2d47375f84c695a28e5dd816821f81cf3b (diff) | |
| download | emacs-a094fe434f1322399cd9b9a9eeb3f2c67b226e28.tar.gz emacs-a094fe434f1322399cd9b9a9eeb3f2c67b226e28.zip | |
More informative message when a fileset is in a mixed state.
| -rw-r--r-- | lisp/ChangeLog | 2 | ||||
| -rw-r--r-- | lisp/vc.el | 3 |
2 files changed, 4 insertions, 1 deletions
diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 7cd6ee7e3bf..6bdf90308a5 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog | |||
| @@ -27,6 +27,8 @@ | |||
| 27 | and was somewhat misleading. | 27 | and was somewhat misleading. |
| 28 | * vc.el (vc-cvs-delete-file) Don't do a "cvs commit" immediately after | 28 | * vc.el (vc-cvs-delete-file) Don't do a "cvs commit" immediately after |
| 29 | removing the file. | 29 | removing the file. |
| 30 | * vc.el (vc-next-action): More informative message when a fileset | ||
| 31 | is in a mixed state. | ||
| 30 | 32 | ||
| 31 | 2008-05-01 Sam Steingold <sds@gnu.org> | 33 | 2008-05-01 Sam Steingold <sds@gnu.org> |
| 32 | 34 | ||
diff --git a/lisp/vc.el b/lisp/vc.el index cdaecada65b..8e3521b9e45 100644 --- a/lisp/vc.el +++ b/lisp/vc.el | |||
| @@ -1620,7 +1620,8 @@ merge in the changes into your working copy." | |||
| 1620 | ;; Ignore directories, they are compatible with anything. | 1620 | ;; Ignore directories, they are compatible with anything. |
| 1621 | (unless (file-directory-p file) | 1621 | (unless (file-directory-p file) |
| 1622 | (unless (vc-compatible-state (vc-state file) state) | 1622 | (unless (vc-compatible-state (vc-state file) state) |
| 1623 | (error "Fileset is in a mixed-up state %s %s" state (vc-state file))) | 1623 | (error "%s:%s clashes with %s:%s" |
| 1624 | file (vc-state file) (car files) state)) | ||
| 1624 | (unless (eq (vc-checkout-model backend file) model) | 1625 | (unless (eq (vc-checkout-model backend file) model) |
| 1625 | (error "Fileset has mixed checkout models")))) | 1626 | (error "Fileset has mixed checkout models")))) |
| 1626 | ;; Check for buffers in the fileset not matching the on-disk contents. | 1627 | ;; Check for buffers in the fileset not matching the on-disk contents. |