Function: ediff-abbreviate-file-name

ediff-abbreviate-file-name is a byte-compiled function defined in ediff-init.el.gz.

Signature

(ediff-abbreviate-file-name FILE &optional DIR)

Source Code

;; Defined in /usr/src/emacs/lisp/vc/ediff-init.el.gz
;; temporarily uses DIR to abbreviate file name
;; if DIR is nil, use default-directory
(defun ediff-abbreviate-file-name (file &optional dir)
  (cond ((stringp dir)
	 (let ((directory-abbrev-alist (list (cons dir ""))))
	   (abbreviate-file-name file)))
	(t
	 (abbreviate-file-name file))))