Function: data-debug-insert-string

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

Signature

(data-debug-insert-string THING PREFIX PREBUTTONTEXT)

Documentation

Insert one symbol THING.

A Symbol is a simple thing, but this provides some face and prefix rules. PREFIX is the text that precedes the button. PREBUTTONTEXT is some text between prefix and the thing.

Source Code

;; Defined in /usr/src/emacs/lisp/cedet/data-debug.el.gz
;;; String
(defun data-debug-insert-string (thing prefix prebuttontext)
  "Insert one symbol THING.
A Symbol is a simple thing, but this provides some face and prefix rules.
PREFIX is the text that precedes the button.
PREBUTTONTEXT is some text between prefix and the thing."
  (let ((newstr thing))
    (while (string-match "\n" newstr)
      (setq newstr (replace-match "\\n" t t newstr)))
    (while (string-match "\t" newstr)
      (setq newstr (replace-match "\\t" t t newstr)))
    (insert prefix prebuttontext
	    (propertize (format "\"%s\"" newstr)
                        'face 'font-lock-string-face)
	    "\n" )))