Function: hfy-href-stub

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

Signature

(hfy-href-stub THIS-FILE DEF-FILES TAG)

Documentation

Return an href stub for a tag href in THIS-FILE.

If DEF-FILES (list of files containing definitions for the tag in question) contains only one entry, the href should link straight to that file. Otherwise, the link should be to the index file.

We are not yet concerned with the file extensions/tag line number and so on at this point.

If hfy-split-index is set, and the href will be to an index file rather than a source file, append a .X to hfy-index-file, where X is the uppercased first character of TAG.

See also hfy-relstub, hfy-index-file.

Source Code

;; Defined in /usr/src/emacs/lisp/htmlfontify.el.gz
(defun hfy-href-stub (this-file def-files tag)
  "Return an href stub for a tag href in THIS-FILE.
If DEF-FILES (list of files containing definitions for the tag in question)
contains only one entry, the href should link straight to that file.
Otherwise, the link should be to the index file.

We are not yet concerned with the file extensions/tag line number and so on at
this point.

If `hfy-split-index' is set, and the href will be to an index file rather than
a source file, append a .X to `hfy-index-file', where X is the uppercased
first character of TAG.

See also `hfy-relstub', `hfy-index-file'."
  ;;(message "hfy-href-stub");;DBUG
  ;; FIXME: Why not use something like
  ;; (file-relative-name (if ...) (file-name-directory this-file)) ?  --Stef
  (concat
   (hfy-relstub this-file)
   (if (= 1 (length def-files)) (car def-files)
     (if (not hfy-split-index) hfy-index-file
       (concat hfy-index-file "." (upcase (substring tag 0 1)))))) )