Mercurial > emacs
comparison lisp/vc-svn.el @ 87426:47c02bd68801
*** empty log message ***
| author | Eric S. Raymond <esr@snark.thyrsus.com> |
|---|---|
| date | Thu, 27 Dec 2007 03:10:52 +0000 |
| parents | c0ee02a9ac55 |
| children | c5df210848ca |
comparison
equal
deleted
inserted
replaced
| 87425:6993642c1877 | 87426:47c02bd68801 |
|---|---|
| 372 "Get change log(s) associated with FILES." | 372 "Get change log(s) associated with FILES." |
| 373 (save-current-buffer | 373 (save-current-buffer |
| 374 (vc-setup-buffer buffer) | 374 (vc-setup-buffer buffer) |
| 375 (let ((inhibit-read-only t)) | 375 (let ((inhibit-read-only t)) |
| 376 (goto-char (point-min)) | 376 (goto-char (point-min)) |
| 377 ;; Add a line to tell log-view-mode what file this is. | 377 (if files |
| 378 ;; FIXME if there are multiple files, log-view-current-file | 378 (dolist (file files) |
| 379 ;; breaks. It's trivial to adapt log-view-file-re for the | 379 (insert "Working file: " file "\n") |
| 380 ;; changed prefix, but less trivial to make | 380 (vc-svn-command |
| 381 ;; log-view-current-file actually do the right thing in the | 381 buffer |
| 382 ;; multiple file case. | 382 'async |
| 383 (insert (format "Working file%s: " | 383 ;; (if (and (= (length files) 1) (vc-stay-local-p file)) 'async 0) |
| 384 (if (= (length files) 1) | 384 (list file) |
| 385 "" | 385 "log" |
| 386 "s")) | 386 ;; By default Subversion only shows the log up to the |
| 387 (vc-delistify (mapcar 'file-relative-name files)) "\n")) | 387 ;; working revision, whereas we also want the log of the |
| 388 (vc-svn-command | 388 ;; subsequent commits. At least that's what the |
| 389 buffer | 389 ;; vc-cvs.el code does. |
| 390 (if (and (= (length files) 1) (vc-stay-local-p (car files))) 'async 0) | 390 "-rHEAD:0")) |
| 391 files "log" | 391 ;; Dump log for the entire directory. |
| 392 ;; By default Subversion only shows the log upto the working revision, | 392 (vc-svn-command buffer 0 nil "log" "-rHEAD:0"))))) |
| 393 ;; whereas we also want the log of the subsequent commits. At least | |
| 394 ;; that's what the vc-cvs.el code does. | |
| 395 "-rHEAD:0"))) | |
| 396 | 393 |
| 397 (defun vc-svn-wash-log () | 394 (defun vc-svn-wash-log () |
| 398 "Remove all non-comment information from log output." | 395 "Remove all non-comment information from log output." |
| 399 ;; FIXME: not implemented for SVN | 396 ;; FIXME: not implemented for SVN |
| 400 nil) | 397 nil) |