Function: ediff-insert-dirs-in-meta-buffer

ediff-insert-dirs-in-meta-buffer is a byte-compiled function defined in ediff-mult.el.gz.

Signature

(ediff-insert-dirs-in-meta-buffer META-LIST)

Source Code

;; Defined in /usr/src/emacs/lisp/vc/ediff-mult.el.gz
;; Draw the directories
(defun ediff-insert-dirs-in-meta-buffer (meta-list)
  (let* ((dir1 (ediff-abbreviate-file-name (ediff-get-group-objA meta-list)))
	 (dir2 (ediff-get-group-objB meta-list))
	 (dir2 (if (stringp dir2) (ediff-abbreviate-file-name dir2)))
	 (dir3 (ediff-get-group-objC meta-list))
	 (dir3 (if (stringp dir3) (ediff-abbreviate-file-name dir3))))
    (insert "*** Directory A: " dir1 "\n")
    (if dir2 (insert "*** Directory B: " dir2 "\n"))
    (if dir3 (insert "*** Directory C: " dir3 "\n"))
    (insert "\n")))