diff options
| author | Eric S. Raymond <esr@snark.thyrsus.com> | 2007-07-19 14:18:33 +0000 |
|---|---|---|
| committer | Eric S. Raymond <esr@snark.thyrsus.com> | 2007-07-19 14:18:33 +0000 |
| commit | ea139d51c44bdab6a1a796c7866d01be090dfaef (patch) | |
| tree | 058474d5dcdc783d760352f0185074aeb12d40e8 /lisp/vc-cvs.el | |
| parent | 2c2cd782c8f5fe6a604d682b3b35b9ab5468d98f (diff) | |
| download | emacs-ea139d51c44bdab6a1a796c7866d01be090dfaef.tar.gz emacs-ea139d51c44bdab6a1a796c7866d01be090dfaef.tar.bz2 emacs-ea139d51c44bdab6a1a796c7866d01be090dfaef.zip | |
Fix two variable-reference bugs.
Diffstat (limited to 'lisp/vc-cvs.el')
| -rw-r--r-- | lisp/vc-cvs.el | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/lisp/vc-cvs.el b/lisp/vc-cvs.el index 3712dcd8999..fab59b1710c 100644 --- a/lisp/vc-cvs.el +++ b/lisp/vc-cvs.el @@ -330,8 +330,9 @@ its parents." ;; as a branch, commit and switch to it. (apply 'vc-cvs-command nil 0 files "tag" "-b" (list rev)) (apply 'vc-cvs-command nil 0 files "update" "-r" (list rev)) - (vc-file-setprop file 'vc-cvs-sticky-tag rev))) - (let ((status (apply 'vc-cvs-command nil 1 file + (mapc (lambda (file) (vc-file-setprop file 'vc-cvs-sticky-tag rev)) + files))) + (let ((status (apply 'vc-cvs-command nil 1 files "ci" (if rev (concat "-r" rev)) (concat "-m" comment) (vc-switches 'CVS 'checkin)))) @@ -509,7 +510,7 @@ The changes are between FIRST-VERSION and SECOND-VERSION." (fboundp 'start-process))) (status (apply 'vc-cvs-command (or buffer "*vc-diff*") (if async 'async 1) - file "diff" + files "diff" (and oldvers (concat "-r" oldvers)) (and newvers (concat "-r" newvers)) (vc-switches 'CVS 'diff)))) |