/[emacs]/emacs/lisp/vc-svn.el
ViewVC logotype

Diff of /emacs/lisp/vc-svn.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.12.2.2 by miles, Tue Apr 27 14:08:30 2004 UTC revision 1.12.2.3 by miles, Tue Jul 6 09:41:25 2004 UTC
# Line 195  This is only possible if SVN is responsi Line 195  This is only possible if SVN is responsi
195    
196  (defun vc-svn-checkin (file rev comment)  (defun vc-svn-checkin (file rev comment)
197    "SVN-specific version of `vc-backend-checkin'."    "SVN-specific version of `vc-backend-checkin'."
198    (let ((status (apply 'vc-svn-command nil 1 file    (let ((status (apply
199                         "ci" (list* "-m" comment (vc-switches 'SVN 'checkin)))))                   'vc-svn-command nil 1 file "ci"
200                     (nconc (list "-m" comment) (vc-switches 'SVN 'checkin)))))
201      (set-buffer "*vc*")      (set-buffer "*vc*")
202      (goto-char (point-min))      (goto-char (point-min))
203      (unless (equal status 0)      (unless (equal status 0)

Legend:
Removed from v.1.12.2.2  
changed lines
  Added in v.1.12.2.3

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26