Function: byte-compile-abbreviate-file

byte-compile-abbreviate-file is a byte-compiled function defined in bytecomp.el.gz.

Signature

(byte-compile-abbreviate-file FILE &optional DIR)

Source Code

;; Defined in /usr/src/emacs/lisp/emacs-lisp/bytecomp.el.gz
;; FIXME: We should maybe extend abbreviate-file-name with an optional DIR
;; argument to try and use a relative file-name.
(defun byte-compile-abbreviate-file (file &optional dir)
  (let ((f1 (abbreviate-file-name file))
        (f2 (file-relative-name file dir)))
    (if (< (length f2) (length f1)) f2 f1)))