Function: data-debug-insert-stuff-list-button

data-debug-insert-stuff-list-button is a byte-compiled function defined in data-debug.el.gz.

Signature

(data-debug-insert-stuff-list-button STUFFLIST PREFIX PREBUTTONTEXT)

Documentation

Insert a button representing STUFFLIST.

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

Source Code

;; Defined in /usr/src/emacs/lisp/cedet/data-debug.el.gz
(defun data-debug-insert-stuff-list-button (stufflist
					    prefix
					    prebuttontext)
  "Insert a button representing STUFFLIST.
PREFIX is the text that precedes the button.
PREBUTTONTEXT is some text between prefix and the stuff list button."
  (let ((start (point))
	(end nil)
	(str
	 (condition-case nil
	     (format "#<list o' stuff: %d entries>" (safe-length stufflist))
	   (error "#<list o' stuff>")))
	(tip (if (or (listp (car stufflist))
		     (vectorp (car stufflist)))
		 ""
	       (format "%s" stufflist))))
    (insert prefix prebuttontext str)
    (setq end (point))
    (put-text-property (- end (length str)) end 'face 'font-lock-variable-name-face)
    (put-text-property start end 'ddebug stufflist)
    (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-stuff-list-from-point)
    (insert "\n")
    )
  )