diff options
| author | Thien-Thi Nguyen | 2008-02-20 10:40:46 +0000 |
|---|---|---|
| committer | Thien-Thi Nguyen | 2008-02-20 10:40:46 +0000 |
| commit | 58db72a4d3c0bea5624ac04fec8d2010b2b7449d (patch) | |
| tree | a5e3a712c921b7bb6f3bf459da9a47a5037cf9fa | |
| parent | a1e7b421beed17171d63331d77ef132bf73ccae0 (diff) | |
| download | emacs-58db72a4d3c0bea5624ac04fec8d2010b2b7449d.tar.gz emacs-58db72a4d3c0bea5624ac04fec8d2010b2b7449d.zip | |
Kill eol whitespace; nfc.
| -rw-r--r-- | lisp/vc-svn.el | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/lisp/vc-svn.el b/lisp/vc-svn.el index 92374be84fa..b9ad61292ef 100644 --- a/lisp/vc-svn.el +++ b/lisp/vc-svn.el | |||
| @@ -239,7 +239,7 @@ RESULT is a list of conses (FILE . STATE) for directory DIR." | |||
| 239 | (defun vc-svn-create-repo () | 239 | (defun vc-svn-create-repo () |
| 240 | "Create a new SVN repository." | 240 | "Create a new SVN repository." |
| 241 | (vc-do-command nil 0 "svnadmin" '("create" "SVN")) | 241 | (vc-do-command nil 0 "svnadmin" '("create" "SVN")) |
| 242 | (vc-do-command nil 0 "svn" '(".") | 242 | (vc-do-command nil 0 "svn" '(".") |
| 243 | "checkout" (concat "file://" default-directory "SVN"))) | 243 | "checkout" (concat "file://" default-directory "SVN"))) |
| 244 | 244 | ||
| 245 | (defun vc-svn-register (files &optional rev comment) | 245 | (defun vc-svn-register (files &optional rev comment) |
| @@ -405,7 +405,7 @@ uses locally for temp files must also be writeable by you on that host." | |||
| 405 | (goto-char (point-min)) | 405 | (goto-char (point-min)) |
| 406 | (unless (re-search-forward "Repository Root: svn\\+ssh://\\([^/]+\\)\\(/.*\\)" nil t) | 406 | (unless (re-search-forward "Repository Root: svn\\+ssh://\\([^/]+\\)\\(/.*\\)" nil t) |
| 407 | (error "Repository information is unavailable.")) | 407 | (error "Repository information is unavailable.")) |
| 408 | (let* ((tempfile (make-temp-file user-mail-address)) | 408 | (let* ((tempfile (make-temp-file user-mail-address)) |
| 409 | (host (match-string 1)) | 409 | (host (match-string 1)) |
| 410 | (directory (match-string 2)) | 410 | (directory (match-string 2)) |
| 411 | (remotefile (concat host ":" tempfile))) | 411 | (remotefile (concat host ":" tempfile))) |
| @@ -414,9 +414,9 @@ uses locally for temp files must also be writeable by you on that host." | |||
| 414 | (write-region (point-min) (point-max) tempfile)) | 414 | (write-region (point-min) (point-max) tempfile)) |
| 415 | (unless (vc-do-command nil 0 "scp" nil "-q" tempfile remotefile) | 415 | (unless (vc-do-command nil 0 "scp" nil "-q" tempfile remotefile) |
| 416 | (error "Copy of comment to %s failed" remotefile)) | 416 | (error "Copy of comment to %s failed" remotefile)) |
| 417 | (unless (vc-do-command nil 0 "ssh" nil | 417 | (unless (vc-do-command nil 0 "ssh" nil |
| 418 | "-q" host | 418 | "-q" host |
| 419 | (format "svnadmin setlog --bypass-hooks %s -r %s %s; rm %s" | 419 | (format "svnadmin setlog --bypass-hooks %s -r %s %s; rm %s" |
| 420 | directory rev tempfile tempfile)) | 420 | directory rev tempfile tempfile)) |
| 421 | (error "Log edit failed")) | 421 | (error "Log edit failed")) |
| 422 | )) | 422 | )) |