Function: hfy-relstub

hfy-relstub is a byte-compiled function defined in htmlfontify.el.gz.

Signature

(hfy-relstub FILE &optional START)

Documentation

Return a "../" stub of the appropriate length for the current source tree depth, as determined from FILE (a filename). START is the offset at which to start looking for the / character in FILE.

Source Code

;; Defined in /usr/src/emacs/lisp/htmlfontify.el.gz
(defun hfy-relstub (file &optional start)
  "Return a \"../\" stub of the appropriate length for the current source
tree depth, as determined from FILE (a filename).
START is the offset at which to start looking for the / character in FILE."
  ;;(message "hfy-relstub");;DBUG
  (let ((c ""))
    (while (setq start (string-search "/" file start))
      (setq start (1+ start)) (setq c (concat c "../")))
    c))