aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorThien-Thi Nguyen2008-02-20 10:40:46 +0000
committerThien-Thi Nguyen2008-02-20 10:40:46 +0000
commit58db72a4d3c0bea5624ac04fec8d2010b2b7449d (patch)
treea5e3a712c921b7bb6f3bf459da9a47a5037cf9fa
parenta1e7b421beed17171d63331d77ef132bf73ccae0 (diff)
downloademacs-58db72a4d3c0bea5624ac04fec8d2010b2b7449d.tar.gz
emacs-58db72a4d3c0bea5624ac04fec8d2010b2b7449d.zip
Kill eol whitespace; nfc.
-rw-r--r--lisp/vc-svn.el10
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 ))