mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-12-24 10:38:38 +00:00
Code Issues Releases Activity

(emerge-goto-line): New function.

Browse Source 
(emerge-convert-diffs-to-markers): Use it.
This commit is contained in:
Richard M. Stallman 1994-03-28 18:48:16 +00:00
parent 3e01fd9daa
commit 4d4cd289b4
1 changed files with 17 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

22
lisp/emerge.el
View File

@ -1432,6 +1432,12 @@ These characteristics are restored by `emerge-restore-buffer-characteristics'."
(emerge-restore-variables emerge-saved-variables
B-values))))
;; Move to line DESIRED-LINE assuming we are at line CURRENT-LINE.
;; Return DESIRED-LINE.
(defun emerge-goto-line (desired-line current-line)
(forward-line (- desired-line current-line))
current-line)
(defun emerge-convert-diffs-to-markers (A-buffer
B-buffer
merge-buffer
@ -1449,7 +1455,13 @@ These characteristics are restored by `emerge-restore-buffer-characteristics'."
B-buffer
(save-restriction
(widen)
(count-lines 1 B-point-min)))))
(count-lines 1 B-point-min))))
;; Record current line number in each buffer
;; so we don't have to count from the beginning.
(a-line A-hidden-lines)
(b-line B-hidden-lines))
(emerge-eval-in-buffer A-buffer (goto-char (point-min)))
(emerge-eval-in-buffer B-buffer (goto-char (point-min)))
(while lineno-list
(let* ((list-element (car lineno-list))
a-begin-marker
@ -1466,15 +1478,15 @@ These characteristics are restored by `emerge-restore-buffer-characteristics'."
;; place markers at the appropriate places in the buffers
(emerge-eval-in-buffer
A-buffer
(goto-line (+ a-begin A-hidden-lines))
(setq a-line (emerge-goto-line (+ a-begin A-hidden-lines) a-line))
(setq a-begin-marker (point-marker))
(goto-line (+ a-end A-hidden-lines))
(setq a-line (emerge-goto-line (+ a-end A-hidden-lines) a-line))
(setq a-end-marker (point-marker)))
(emerge-eval-in-buffer
B-buffer
(goto-line (+ b-begin B-hidden-lines))
(setq b-line (emerge-goto-line (+ b-begin B-hidden-lines) b-line))
(setq b-begin-marker (point-marker))
(goto-line (+ b-end B-hidden-lines))
(setq b-line (emerge-goto-line (+ b-end B-hidden-lines) b-line))
(setq b-end-marker (point-marker)))
(setq merge-begin-marker (set-marker
(make-marker)