Function: data-debug-insert-ring-button

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

Signature

(data-debug-insert-ring-button RING PREFIX PREBUTTONTEXT)

Documentation

Insert a button representing RING.

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-ring-button (ring
				      prefix
				      prebuttontext)
  "Insert a button representing RING.
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 (format "#<RING: %d, %d max>"
		      (ring-length ring)
		      (ring-size ring)))
	 ;; (ringthing
	 ;;  (if (= (ring-length ring) 0) nil (ring-ref ring 0)))
	 (tip (format "Ring max-size %d, length %d."
		      (ring-size ring)
		      (ring-length ring)))
	 )
    (insert prefix prebuttontext str)
    (setq end (point))
    (put-text-property (- end (length str)) end 'face 'font-lock-type-face)
    (put-text-property start end 'ddebug ring)
    (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-ring-items-from-point)
    (insert "\n")
    )
  )