Function: semantic-describe-buffer-var-helper

semantic-describe-buffer-var-helper is a byte-compiled function defined in util.el.gz.

Signature

(semantic-describe-buffer-var-helper VARSYM BUFFER)

Documentation

Display to standard out the value of VARSYM in BUFFER.

Source Code

;; Defined in /usr/src/emacs/lisp/cedet/semantic/util.el.gz
;;; Hacks
;;
;; Some hacks to help me test these functions
(defun semantic-describe-buffer-var-helper (varsym buffer)
  "Display to standard out the value of VARSYM in BUFFER."
  (require 'data-debug)
  (let ((value (with-current-buffer buffer
		 (symbol-value varsym))))
    (cond
     ((and (consp value)
	   (< (length value) 10))
      ;; Draw the list of things in the list.
      (princ (format "  %s:  #<list of %d items>\n"
		     varsym (length value)))
      (data-debug-insert-stuff-list
       value "    " )
      )
     (t
      ;; Else do a one-liner.
      (data-debug-insert-thing
       value " " (concat " " (symbol-name varsym) ": "))
      ))))