comparison lisp/vc-svn.el @ 101669:7f3372c8c319

(vc-svn-dir-status): Correct logic for remote connection. (vc-svn-diff): Use old version number even when it is the working revision. This is needed, e.g, in the vc-print-log buffer.

101668:1862311ef4a1

  "Run 'svn status' for DIR and update BUFFER via CALLBACK.
CALLBACK is called as (CALLBACK RESULT BUFFER), where
RESULT is a list of conses (FILE . STATE) for directory DIR."
  ;; FIXME should this rather be all the files in dir?
  (let* ((local (vc-stay-local-p dir))
	 (remote (and local (not (eq local 'only-file)))))
    (vc-svn-command (current-buffer) 'async nil "status"
		    (if remote "-u"))
  (vc-exec-after
     `(vc-svn-after-dir-status (quote ,callback) ,remote))))

	;; Dump log for the entire directory.
	(vc-svn-command buffer 0 nil "log" "-rHEAD:0")))))

(defun vc-svn-diff (files &optional oldvers newvers buffer)
  "Get a difference report using SVN between two revisions of fileset FILES."
  (and oldvers
       files
       (catch 'no
	 (dolist (f files)
	   (or (equal oldvers (vc-working-revision f))
	       (throw 'no nil)))
	 t)
       ;; Use nil rather than the current revision because svn handles
       ;; it better (i.e. locally).  Note that if _any_ of the files
       ;; has a different revision, we fetch the lot, which is
       ;; obviously sub-optimal.
       (setq oldvers nil))
  (let* ((switches
	    (if vc-svn-diff-switches
		(vc-switches 'SVN 'diff)
	      (list "--diff-cmd=diff" "-x"
		    (mapconcat 'identity (vc-switches nil 'diff) " "))))

101669:7f3372c8c319

  "Run 'svn status' for DIR and update BUFFER via CALLBACK.
CALLBACK is called as (CALLBACK RESULT BUFFER), where
RESULT is a list of conses (FILE . STATE) for directory DIR."
  ;; FIXME should this rather be all the files in dir?
  (let* ((local (vc-stay-local-p dir))
	 (remote (or (not local) (eq local 'only-file))))
    (vc-svn-command (current-buffer) 'async nil "status"
		    (if remote "-u"))
  (vc-exec-after
     `(vc-svn-after-dir-status (quote ,callback) ,remote))))

	;; Dump log for the entire directory.
	(vc-svn-command buffer 0 nil "log" "-rHEAD:0")))))

(defun vc-svn-diff (files &optional oldvers newvers buffer)
  "Get a difference report using SVN between two revisions of fileset FILES."
  (let* ((switches
	    (if vc-svn-diff-switches
		(vc-switches 'SVN 'diff)
	      (list "--diff-cmd=diff" "-x"
		    (mapconcat 'identity (vc-switches nil 'diff) " "))))