Mercurial > emacs
changeset 91979:99f1bbaca4b7
Kill eol whitespace; nfc.
| author | Thien-Thi Nguyen <ttn@gnuvola.org> |
|---|---|
| date | Wed, 20 Feb 2008 10:40:46 +0000 |
| parents | df63f1051798 |
| children | 7858437fe6d8 |
| files | lisp/vc-svn.el |
| diffstat | 1 files changed, 5 insertions(+), 5 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/vc-svn.el Wed Feb 20 10:33:38 2008 +0000 +++ b/lisp/vc-svn.el Wed Feb 20 10:40:46 2008 +0000 @@ -239,7 +239,7 @@ (defun vc-svn-create-repo () "Create a new SVN repository." (vc-do-command nil 0 "svnadmin" '("create" "SVN")) - (vc-do-command nil 0 "svn" '(".") + (vc-do-command nil 0 "svn" '(".") "checkout" (concat "file://" default-directory "SVN"))) (defun vc-svn-register (files &optional rev comment) @@ -405,7 +405,7 @@ (goto-char (point-min)) (unless (re-search-forward "Repository Root: svn\\+ssh://\\([^/]+\\)\\(/.*\\)" nil t) (error "Repository information is unavailable.")) - (let* ((tempfile (make-temp-file user-mail-address)) + (let* ((tempfile (make-temp-file user-mail-address)) (host (match-string 1)) (directory (match-string 2)) (remotefile (concat host ":" tempfile))) @@ -414,9 +414,9 @@ (write-region (point-min) (point-max) tempfile)) (unless (vc-do-command nil 0 "scp" nil "-q" tempfile remotefile) (error "Copy of comment to %s failed" remotefile)) - (unless (vc-do-command nil 0 "ssh" nil - "-q" host - (format "svnadmin setlog --bypass-hooks %s -r %s %s; rm %s" + (unless (vc-do-command nil 0 "ssh" nil + "-q" host + (format "svnadmin setlog --bypass-hooks %s -r %s %s; rm %s" directory rev tempfile tempfile)) (error "Log edit failed")) ))