Function: help-fns-short-filename

help-fns-short-filename is a byte-compiled function defined in help-fns.el.gz.

Signature

(help-fns-short-filename FILENAME)

Source Code

;; Defined in /usr/src/emacs/lisp/help-fns.el.gz
(defun help-fns-short-filename (filename)
  (let* ((abbrev (abbreviate-file-name filename))
         (short abbrev))
    (dolist (dir load-path)
      (let ((rel (file-relative-name filename dir)))
        (if (< (length rel) (length short))
            (setq short rel)))
      (let ((rel (file-relative-name abbrev dir)))
        (if (< (length rel) (length short))
            (setq short rel))))
    short))