Mercurial > emacs
comparison lisp/vc-svn.el @ 86002:613df1ba1584
* vc.el (vc-diff-internal): Make the *vc-diff* buffer read only.
* vc-svn.el (vc-svn-print-log, vc-svn-diff):
* vc-mcvs.el (vc-mcvs-print-log, vc-mcvs-annotate-command):
* vc-cvs.el (vc-cvs-print-log, vc-cvs-diff)
(vc-cvs-annotate-command):
* vc-arch.el (vc-arch-diff): Remove test to check if start-process
is bound, it always is.
| author | Dan Nicolaescu <dann@ics.uci.edu> |
|---|---|
| date | Sat, 10 Nov 2007 05:22:16 +0000 |
| parents | 43a9834cf1a6 |
| children | c0ee02a9ac55 880960b70474 |
comparison
equal
deleted
inserted
replaced
| 86001:8845ad7f1ea3 | 86002:613df1ba1584 |
|---|---|
| 389 "" | 389 "" |
| 390 "s")) | 390 "s")) |
| 391 (vc-delistify (mapcar 'file-relative-name files)) "\n")) | 391 (vc-delistify (mapcar 'file-relative-name files)) "\n")) |
| 392 (vc-svn-command | 392 (vc-svn-command |
| 393 buffer | 393 buffer |
| 394 (if (and (= (length files) 1) (vc-stay-local-p (car files)) (fboundp 'start-process)) 'async 0) | 394 (if (and (= (length files) 1) (vc-stay-local-p (car files))) 'async 0) |
| 395 files "log" | 395 files "log" |
| 396 ;; By default Subversion only shows the log upto the working revision, | 396 ;; By default Subversion only shows the log upto the working revision, |
| 397 ;; whereas we also want the log of the subsequent commits. At least | 397 ;; whereas we also want the log of the subsequent commits. At least |
| 398 ;; that's what the vc-cvs.el code does. | 398 ;; that's what the vc-cvs.el code does. |
| 399 "-rHEAD:0"))) | 399 "-rHEAD:0"))) |
| 420 (if vc-svn-diff-switches | 420 (if vc-svn-diff-switches |
| 421 (vc-switches 'SVN 'diff) | 421 (vc-switches 'SVN 'diff) |
| 422 (list "-x" (mapconcat 'identity (vc-switches nil 'diff) " ")))) | 422 (list "-x" (mapconcat 'identity (vc-switches nil 'diff) " ")))) |
| 423 (async (and (not vc-disable-async-diff) | 423 (async (and (not vc-disable-async-diff) |
| 424 (vc-stay-local-p files) | 424 (vc-stay-local-p files) |
| 425 (or oldvers newvers) ; Svn diffs those locally. | 425 (or oldvers newvers)))) ; Svn diffs those locally. |
| 426 (fboundp 'start-process)))) | |
| 427 (apply 'vc-svn-command buffer | 426 (apply 'vc-svn-command buffer |
| 428 (if async 'async 0) | 427 (if async 'async 0) |
| 429 files "diff" | 428 files "diff" |
| 430 (append | 429 (append |
| 431 switches | 430 switches |