Function: semanticdb-find-adebug-insert-scanned-tag-cons

semanticdb-find-adebug-insert-scanned-tag-cons is a byte-compiled function defined in db-find.el.gz.

Signature

(semanticdb-find-adebug-insert-scanned-tag-cons CONSDATA PREFIX PREBUTTONTEXT)

Documentation

Insert a button representing scanned include CONSDATA.

PREFIX is the text that precedes the button. PREBUTTONTEXT is some text between prefix and the overlay button.

Source Code

;; Defined in /usr/src/emacs/lisp/cedet/semantic/db-find.el.gz
(defun semanticdb-find-adebug-insert-scanned-tag-cons (consdata prefix prebuttontext)
  "Insert a button representing scanned include CONSDATA.
PREFIX is the text that precedes the button.
PREBUTTONTEXT is some text between prefix and the overlay button."
  (let* ((start (point))
	 (end nil)
	 (mode (car consdata))
	 (tag (cdr consdata))
	 (name (semantic-tag-name tag))
	 (file (semantic-tag-file-name tag))
	 (str1 (format "%S %s" mode name))
	 (str2 (format " : %s" file))
	 ;; (tip nil)
	 )
    (insert prefix prebuttontext str1)
    (setq end (point))
    (insert str2)
    (put-text-property start end 'face
		       (cond ((eq mode 'scanned)
			      'font-lock-function-name-face)
			     ((eq mode 'duplicate)
			      'font-lock-comment-face)
			     ((eq mode 'lost)
			      'font-lock-variable-name-face)
			     ((eq mode 'scanned-no-recurse)
			      'font-lock-type-face)))
    (put-text-property start end 'ddebug (cdr consdata))
    (put-text-property start end 'ddebug-indent(length prefix))
    (put-text-property start end 'ddebug-prefix prefix)
    ;; (put-text-property start end 'help-echo tip)
    (put-text-property start end 'ddebug-function
		       'data-debug-insert-tag-parts-from-point)
    (insert "\n")
    )
  )