Mercurial > emacs
diff lisp/ediff-merg.el @ 13216:b9dc8cc658d5
Moved defsubsts up.
author | Michael Kifer <kifer@cs.stonybrook.edu> |
---|---|
date | Sat, 14 Oct 1995 03:14:11 +0000 |
parents | 9d432c26c3a7 |
children | 187735b53d52 |
line wrap: on
line diff
--- a/lisp/ediff-merg.el Sat Oct 14 03:12:53 1995 +0000 +++ b/lisp/ediff-merg.el Sat Oct 14 03:14:11 1995 +0000 @@ -50,7 +50,14 @@ (nth 1 ediff-combination-pattern) "\n" (ediff-get-region-contents n 'B ediff-control-buffer) (nth 2 ediff-combination-pattern) "\n")) - + +(defsubst ediff-make-combined-diff (regA regB) + (concat (nth 0 ediff-combination-pattern) "\n" + regA + (nth 1 ediff-combination-pattern) "\n" + regB + (nth 2 ediff-combination-pattern) "\n")) + (defsubst ediff-set-state-of-all-diffs-in-all-buffers (ctl-buf) (let ((n 0)) (while (< n ediff-number-of-differences) @@ -216,13 +223,6 @@ (ediff-copy-diff n nil 'C batch-invocation reg-combined)) (or batch-invocation (ediff-recenter))) -(defsubst ediff-make-combined-diff (regA regB) - (concat (nth 0 ediff-combination-pattern) "\n" - regA - (nth 1 ediff-combination-pattern) "\n" - regB - (nth 2 ediff-combination-pattern) "\n")) - ;; Checks if the region in buff C looks like a combination of the regions ;; in buffers A and B. Returns a list (reg-a-beg reg-a-end reg-b-beg reg-b-end)