Mercurial > emacs
comparison lisp/vc-svn.el @ 91989:582312e95923
(vc-svn-program): Fix typo in docstring.
(vc-svn-checkin): Fix typo in error message.
| author | Juanma Barranquero <lekktu@gmail.com> |
|---|---|
| date | Wed, 20 Feb 2008 12:41:59 +0000 |
| parents | 99f1bbaca4b7 |
| children | a0193ceeaa83 |
comparison
equal
deleted
inserted
replaced
| 91988:9e5b3adb3c0e | 91989:582312e95923 |
|---|---|
| 261 "Return non-nil if FILE could be registered in SVN. | 261 "Return non-nil if FILE could be registered in SVN. |
| 262 This is only possible if SVN is responsible for FILE's directory.") | 262 This is only possible if SVN is responsible for FILE's directory.") |
| 263 | 263 |
| 264 (defun vc-svn-checkin (files rev comment) | 264 (defun vc-svn-checkin (files rev comment) |
| 265 "SVN-specific version of `vc-backend-checkin'." | 265 "SVN-specific version of `vc-backend-checkin'." |
| 266 (if rev (error "Committing to a specific revision is unsupported in SVN.")) | 266 (if rev (error "Committing to a specific revision is unsupported in SVN")) |
| 267 (let ((status (apply | 267 (let ((status (apply |
| 268 'vc-svn-command nil 1 files "ci" | 268 'vc-svn-command nil 1 files "ci" |
| 269 (nconc (list "-m" comment) (vc-switches 'SVN 'checkin))))) | 269 (nconc (list "-m" comment) (vc-switches 'SVN 'checkin))))) |
| 270 (set-buffer "*vc*") | 270 (set-buffer "*vc*") |
| 271 (goto-char (point-min)) | 271 (goto-char (point-min)) |
| 526 ;;; | 526 ;;; |
| 527 ;;; Internal functions | 527 ;;; Internal functions |
| 528 ;;; | 528 ;;; |
| 529 | 529 |
| 530 (defcustom vc-svn-program "svn" | 530 (defcustom vc-svn-program "svn" |
| 531 "Name of the svn executable." | 531 "Name of the SVN executable." |
| 532 :type 'string | 532 :type 'string |
| 533 :group 'vc) | 533 :group 'vc) |
| 534 | 534 |
| 535 (defun vc-svn-root (dir) | 535 (defun vc-svn-root (dir) |
| 536 (vc-find-root dir vc-svn-admin-directory t)) | 536 (vc-find-root dir vc-svn-admin-directory t)) |