diff options
| author | Dan Nicolaescu <dann@ics.uci.edu> | 2008-03-31 15:36:56 +0000 |
|---|---|---|
| committer | Dan Nicolaescu <dann@ics.uci.edu> | 2008-03-31 15:36:56 +0000 |
| commit | 1b3f2d4ec6844540ccc6fc51b9e9568036e57236 (patch) | |
| tree | 2b262c71e2ed86250adaa0fba46f4f6e7bbab58d /lisp/vc-cvs.el | |
| parent | ec4853ab3d2b3d7fd3586bb2617a79487d47b8a2 (diff) | |
| download | emacs-1b3f2d4ec6844540ccc6fc51b9e9568036e57236.tar.gz | |
* vc.el (vc-status-add-entry): Assume ENTRY is a list not a cons.
(vc-status-mark-buffer-changed): Handle the extra field.
* vc-bzr.el (vc-bzr-after-dir-status):
* vc-cvs.el (vc-cvs-after-dir-status):
* vc-hg.el (vc-hg-after-dir-status):
* vc-svn.el (vc-svn-after-dir-status): Return a list not a cons.
Diffstat (limited to 'lisp/vc-cvs.el')
| -rw-r--r-- | lisp/vc-cvs.el | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/lisp/vc-cvs.el b/lisp/vc-cvs.el index 0d76eb3902e..d17240e146a 100644 --- a/lisp/vc-cvs.el +++ b/lisp/vc-cvs.el @@ -900,7 +900,7 @@ state." (while (looking-at "? \\(.*\\)") (setq file (file-relative-name (expand-file-name (match-string 1) subdir))) - (push (cons file 'unregistered) result) + (push (list file 'unregistered) result) (forward-line 1)) ;; A file entry. (when (re-search-forward "^File: " nil t) @@ -911,7 +911,7 @@ state." (setq file (file-relative-name (expand-file-name (match-string 1) subdir))) (if (not (re-search-forward "\\=[ \t]+Status: \\(.*\\)" nil t)) - (push (cons file 'unregistered) result) + (push (list file 'unregistered) result) (setq status-str (match-string 1)) (setq status (cond @@ -924,7 +924,7 @@ state." ((string-match "Locally Removed" status-str) 'removed) (t 'edited))) (unless (eq status 'up-to-date) - (push (cons file status) result)))))) + (push (list file status) result)))))) (goto-char (point-max)) (widen)) (funcall update-function result status-buffer))) |