Function: data-debug-insert-thing

data-debug-insert-thing is a byte-compiled function defined in data-debug.el.gz.

Signature

(data-debug-insert-thing THING PREFIX PREBUTTONTEXT &optional PARENT)

Documentation

Insert THING with PREFIX.

PREBUTTONTEXT is some text to insert between prefix and the thing that is not included in the indentation calculation of any children. If PARENT is non-nil, it is somehow related as a parent to thing.

Source Code

;; Defined in /usr/src/emacs/lisp/cedet/data-debug.el.gz
;; uber insert method
(defun data-debug-insert-thing (thing prefix prebuttontext &optional parent)
  "Insert THING with PREFIX.
PREBUTTONTEXT is some text to insert between prefix and the thing
that is not included in the indentation calculation of any children.
If PARENT is non-nil, it is somehow related as a parent to thing."
  (let ((inhibit-read-only t))
    (when (catch 'done
	    (dolist (test data-debug-thing-alist)
	      (when (funcall (car test) thing)
		(condition-case nil
		    (progn
		      (funcall (cdr test) thing prefix prebuttontext parent)
		      (throw 'done nil))
		  (error
		   (condition-case nil
		       (progn
			 (funcall (cdr test) thing prefix prebuttontext)
			 (throw 'done nil))
		     (error nil))))
		;; Only throw the 'done if no error was caught.
		;; If an error was caught, skip this predicate as being
		;; unsuccessful, and move on.
		))
	    nil)
      (data-debug-insert-simple-thing (format "%S" thing)
				      prefix
				      prebuttontext
				      'bold)))
  (set-buffer-modified-p nil))