diff options
| author | Michael Kifer <kifer@cs.stonybrook.edu> | 1997-11-01 01:46:51 +0000 |
|---|---|---|
| committer | Michael Kifer <kifer@cs.stonybrook.edu> | 1997-11-01 01:46:51 +0000 |
| commit | 328b4b7052a5d464e52818ff0f1a33b96e5e761c (patch) | |
| tree | ed5b2b58f632de47cdcc20435b0dfeed3d5c7f4e /lisp/ediff-vers.el | |
| parent | 9645c179af0e934c92780525788664e42c56e07a (diff) | |
| download | emacs-328b4b7052a5d464e52818ff0f1a33b96e5e761c.tar.gz | |
new version
Diffstat (limited to 'lisp/ediff-vers.el')
| -rw-r--r-- | lisp/ediff-vers.el | 33 |
1 files changed, 20 insertions, 13 deletions
diff --git a/lisp/ediff-vers.el b/lisp/ediff-vers.el index 00b7b41f51e..1d5f5fcd008 100644 --- a/lisp/ediff-vers.el +++ b/lisp/ediff-vers.el @@ -146,7 +146,8 @@ ;;; Merge with Version Control -(defun ediff-vc-merge-internal (rev1 rev2 ancestor-rev &optional startup-hooks) +(defun ediff-vc-merge-internal (rev1 rev2 ancestor-rev + &optional startup-hooks merge-buffer-file) ;; If ANCESTOR-REV non-nil, merge with ancestor (let (buf1 buf2 ancestor-buf) (save-excursion @@ -175,12 +176,14 @@ (if ancestor-rev (ediff-merge-buffers-with-ancestor buf1 buf2 ancestor-buf - startup-hooks 'ediff-merge-revisions-with-ancestor) - (ediff-merge-buffers buf1 buf2 startup-hooks 'ediff-merge-revisions)) + startup-hooks 'ediff-merge-revisions-with-ancestor merge-buffer-file) + (ediff-merge-buffers + buf1 buf2 startup-hooks 'ediff-merge-revisions merge-buffer-file)) )) (defun ediff-rcs-merge-internal (rev1 rev2 ancestor-rev - &optional startup-hooks) + &optional + startup-hooks merge-buffer-file) ;; If ANCESTOR-REV non-nil, merge with ancestor (let (buf1 buf2 ancestor-buf) (setq buf1 (rcs-ediff-view-revision rev1) @@ -196,11 +199,13 @@ (if ancestor-rev (ediff-merge-buffers-with-ancestor buf1 buf2 ancestor-buf - startup-hooks 'ediff-merge-revisions-with-ancestor) - (ediff-merge-buffers buf1 buf2 startup-hooks 'ediff-merge-revisions)))) + startup-hooks 'ediff-merge-revisions-with-ancestor merge-buffer-file) + (ediff-merge-buffers + buf1 buf2 startup-hooks 'ediff-merge-revisions merge-buffer-file)))) (defun ediff-generic-sc-merge-internal (rev1 rev2 ancestor-rev - &optional startup-hooks) + &optional + startup-hooks merge-buffer-file) ;; If ANCESTOR-REV non-nil, merge with ancestor (let (buf1 buf2 ancestor-buf) (save-excursion @@ -220,8 +225,9 @@ (if ancestor-rev (ediff-merge-buffers-with-ancestor buf1 buf2 ancestor-buf - startup-hooks 'ediff-merge-revisions-with-ancestor) - (ediff-merge-buffers buf1 buf2 startup-hooks 'ediff-merge-revisions)))) + startup-hooks 'ediff-merge-revisions-with-ancestor merge-buffer-file) + (ediff-merge-buffers + buf1 buf2 startup-hooks 'ediff-merge-revisions merge-buffer-file)))) ;; PCL-CVS.el support @@ -254,7 +260,8 @@ ;; Works like with other interfaces: runs ediff on versions of the file in the ;; current buffer. (defun ediff-pcl-cvs-merge-internal (rev1 rev2 ancestor-rev - &optional startup-hooks) + &optional + startup-hooks merge-buffer-file) ;; Ediff-merge appropriate revisions of the selected file. ;; If REV1 is "" then use the latest revision. ;; If REV2 is "" then merge current buffer's file with REV1. @@ -292,9 +299,9 @@ (if ancestor-buf (ediff-merge-buffers-with-ancestor buf1 buf2 ancestor-buf startup-hooks - 'ediff-merge-revisions-with-ancestor) + 'ediff-merge-revisions-with-ancestor merge-buffer-file) (ediff-merge-buffers - buf1 buf2 startup-hooks 'ediff-merge-revisions)) + buf1 buf2 startup-hooks 'ediff-merge-revisions merge-buffer-file)) )) (defun ediff-pcl-cvs-view-revision (file rev) @@ -324,7 +331,7 @@ (defun cvs-run-ediff-on-file-descriptor (tin) ;; This is a replacement for cvs-emerge-mode -;; Run after cvs-update. +;; Runs after cvs-update. ;; Ediff-merge appropriate revisions of the selected file. (let* ((fileinfo (tin-cookie cvs-cookie-handle tin)) (type (cvs-fileinfo->type fileinfo)) |