| changeset 1593 | 8f9430c7d2f7 |
| parent 1592 | 58938ef683aa |
| child 1594 | cf7966919bd9 |
| 1592:58938ef683aa | 1593:8f9430c7d2f7 |
|---|---|
2536 |
2536 |
2537 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
2537 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
2538 (message "vc-mode, VCS, version control, cvs, svn, mercurial, hg, bazaar, bzr, git, fossil") |
2538 (message "vc-mode, VCS, version control, cvs, svn, mercurial, hg, bazaar, bzr, git, fossil") |
2539 |
2539 |
2540 (eval-when 'compile |
2540 (eval-when 'compile |
2541 (require 'vc) |
|
2542 (require 'vc-hooks) |
|
2541 (require 'vc-annotate) |
2543 (require 'vc-annotate) |
2542 (require 'vc-svn)) |
2544 (require 'vc-svn)) |
2545 |
|
2546 (defun my-vc-show-rev (rev) |
|
2547 "Show diff for REV." |
|
2548 (interactive "sRevision: ") |
|
2549 (let ((backend (vc-responsible-backend default-directory))) |
|
2550 (when backend |
|
2551 (let ((rev-from (vc-call-backend backend 'previous-revision nil rev))) |
|
2552 (when rev-from |
|
2553 (vc-diff-internal t (list backend nil) rev-from rev)))))) |
|
2554 |
|
2555 (global-set-key (kbd "C-x v R") 'my-vc-show-rev) |
|
2543 |
2556 |
2544 ;; `-b' switch to ignore changes in whitespaces. |
2557 ;; `-b' switch to ignore changes in whitespaces. |
2545 ;; (setq vc-git-diff-switches "-b") |
2558 ;; (setq vc-git-diff-switches "-b") |
2546 ;; (setq vc-diff-switches "-b") |
2559 ;; (setq vc-diff-switches "-b") |
2547 |
2560 |