Function: ediff-replace-session-activity-marker-in-meta-buffer

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

Signature

(ediff-replace-session-activity-marker-in-meta-buffer POINT NEW-MARKER)

Source Code

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