Function: hfy-mark-tag-names

hfy-mark-tag-names is a byte-compiled function defined in htmlfontify.el.gz.

Signature

(hfy-mark-tag-names SRCDIR FILE)

Documentation

Mark tags in FILE (lookup SRCDIR in hfy-tags-cache) with the hfy-anchor property, with a value of "tag.line-number".

Source Code

;; Defined in /usr/src/emacs/lisp/htmlfontify.el.gz
;; mark the tags native to this file for anchors
(defun hfy-mark-tag-names (srcdir file)
  "Mark tags in FILE (lookup SRCDIR in `hfy-tags-cache') with the `hfy-anchor'
property, with a value of \"tag.line-number\"."
  ;;(message "(hfy-mark-tag-names %s %s)" srcdir file);;DBUG
  (let* ((cache-entry (assoc srcdir hfy-tags-cache))
         (cache-hash  (cadr cache-entry)))
    (if cache-hash
        (mapcar
         (lambda (TAG)
           (mapcar
            (lambda (TLIST)
              (if (string= file (car TLIST))
                  (let* ((line              (cadr TLIST) )
                         (chr (caddr TLIST))
                         (link (format "%s.%d" TAG line) ))
                    (put-text-property (+ 1 chr)
                                       (+ 2 chr)
                                       'hfy-anchor link))))
            (gethash TAG cache-hash)))
         (hfy-tags-for-file cache-hash file)))))