Function: emerge-insert-A

emerge-insert-A is an interactive and byte-compiled function defined in emerge.el.gz.

Signature

(emerge-insert-A ARG)

Documentation

Insert the A variant of this difference at the point.

Leaves point after text, mark before. With prefix argument ARG, puts point before, mark after.

Key Bindings

Source Code

;; Defined in /usr/src/emacs/lisp/vc/emerge.el.gz
(defun emerge-insert-A (arg)
  "Insert the A variant of this difference at the point.
Leaves point after text, mark before.
With prefix argument ARG, puts point before, mark after."
  (interactive "P")
  (emerge-validate-difference)
  (let* ((diff-vector
	  (aref emerge-difference-list emerge-current-difference))
	 (A-begin (1+ (aref diff-vector 0)))
	 (A-end (1- (aref diff-vector 1)))
	 (opoint (point))
	 (inhibit-read-only t))
    (insert-buffer-substring emerge-A-buffer A-begin A-end)
    (if (not arg)
	(set-mark opoint)
      (set-mark (point))
      (goto-char opoint))))