Function: ediff-update-session-marker-in-dir-meta-buffer

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

Signature

(ediff-update-session-marker-in-dir-meta-buffer SESSION-NUM)

Source Code

;; Defined in /usr/src/emacs/lisp/vc/ediff-mult.el.gz
(defun ediff-update-session-marker-in-dir-meta-buffer (session-num)
  (let (buffer-meta-overlays session-info overl buffer-read-only)
    ;; Splice overlay lists to get all buffer overlays
    (setq buffer-meta-overlays (overlay-lists)
	  buffer-meta-overlays (append (car buffer-meta-overlays)
				       (cdr buffer-meta-overlays)))
    (setq overl (car
                 (delq nil
		       (mapcar
                        (lambda (overl)
                          (if (and
			       (overlay-get overl 'ediff-meta-info)
			       (eq (overlay-get
                                    overl 'ediff-meta-session-number)
                                   session-num))
			      overl))
                        buffer-meta-overlays))))
    (or overl
	(error
	 "Bug in ediff-update-session-marker-in-dir-meta-buffer: no overlay with given number %S"
	 session-num))
    (setq session-info (overlay-get overl 'ediff-meta-info))
    (goto-char (ediff-overlay-start overl))
    (ediff-replace-session-activity-marker-in-meta-buffer
     (point)
     (ediff-get-session-activity-marker session-info))
    (ediff-replace-session-status-in-meta-buffer
     (point)
     (ediff-get-session-status session-info)))
  (ediff-next-meta-item1))