Function: data-debug-insert-symbol-from-point

data-debug-insert-symbol-from-point is a byte-compiled function defined in data-debug.el.gz.

Signature

(data-debug-insert-symbol-from-point POINT)

Documentation

Insert attached properties and possibly the value of symbol at POINT.

Source Code

;; Defined in /usr/src/emacs/lisp/cedet/data-debug.el.gz
;;; Symbol
;;

(defun data-debug-insert-symbol-from-point (point)
  "Insert attached properties and possibly the value of symbol at POINT."
  (let ((symbol (get-text-property point 'ddebug))
	(indent (get-text-property point 'ddebug-indent))
	start)
    (end-of-line)
    (setq start (point))
    (forward-char 1)
    (when (and (not (fboundp symbol)) (boundp symbol))
      (data-debug-insert-thing
       (symbol-value symbol)
       (concat (make-string indent ? ) "> ")
       (concat
	(propertize "value"
		    'face 'font-lock-comment-face)
	" ")))
    (data-debug-insert-property-list
     (symbol-plist symbol)
     (concat (make-string indent ? ) "> "))
    (goto-char start))
  )