Function: emerge-buffers

emerge-buffers is an autoloaded, interactive and byte-compiled function defined in emerge.el.gz.

Signature

(emerge-buffers BUFFER-A BUFFER-B &optional STARTUP-HOOKS QUIT-HOOKS)

Documentation

Run Emerge on two buffers BUFFER-A and BUFFER-B.

View in manual

Key Bindings

Source Code

;; Defined in /usr/src/emacs/lisp/vc/emerge.el.gz
;;; Functions to start Emerge on buffers

;;;###autoload
(defun emerge-buffers (buffer-A buffer-B &optional startup-hooks quit-hooks)
  "Run Emerge on two buffers BUFFER-A and BUFFER-B."
  (interactive "bBuffer A to merge: \nbBuffer B to merge: ")
  (let ((emerge-file-A (emerge-make-temp-file "A"))
	(emerge-file-B (emerge-make-temp-file "B")))
    (with-current-buffer
     buffer-A
     (write-region (point-min) (point-max) emerge-file-A nil 'no-message))
    (with-current-buffer
     buffer-B
     (write-region (point-min) (point-max) emerge-file-B nil 'no-message))
    (emerge-setup (get-buffer buffer-A) emerge-file-A
		  (get-buffer buffer-B) emerge-file-B
		  (cons (lambda ()
                          (delete-file emerge-file-A)
                          (delete-file emerge-file-B))
			startup-hooks)
		  quit-hooks
		  nil)))