Function: ediff-replace-session-status-in-meta-buffer

ediff-replace-session-status-in-meta-buffer is a byte-compiled function defined in ediff-mult.el.gz.

Signature

(ediff-replace-session-status-in-meta-buffer POINT NEW-STATUS)

Source Code

;; Defined in /usr/src/emacs/lisp/vc/ediff-mult.el.gz
;; If NEW-STATUS is non-nil, use it to substitute the current status marker in
;; the meta buffer.  If nil, use SPC
(defun ediff-replace-session-status-in-meta-buffer (point new-status)
  (let* ((overl (ediff-get-meta-overlay-at-pos point))
	 (session-info (overlay-get overl 'ediff-meta-info))
	 (status (ediff-get-session-status session-info))
	 buffer-read-only)
    (setq new-status (or new-status status ?\s))
    (goto-char (ediff-overlay-start overl))
    (forward-char 1) ; status is the second char in session record
    (if (eq (char-after (point)) new-status)
	() ; if marker shown in buffer is the same as new-marker, do nothing
      (insert new-status)
      (delete-char 1)
      (set-buffer-modified-p nil))))