Function: semantic-tag-write-tag-list

semantic-tag-write-tag-list is a byte-compiled function defined in tag-write.el.gz.

Signature

(semantic-tag-write-tag-list TLIST &optional INDENT DONTADDNEWLINE)

Documentation

Write the tag list TLIST to the current stream.

INDENT indicates the current indentation level. If optional DONTADDNEWLINE is non-nil, then don't add a newline.

Source Code

;; Defined in /usr/src/emacs/lisp/cedet/semantic/tag-write.el.gz
(defun semantic-tag-write-tag-list (tlist &optional indent dontaddnewline)
  "Write the tag list TLIST to the current stream.
INDENT indicates the current indentation level.
If optional DONTADDNEWLINE is non-nil, then don't add a newline."
  (if (not indent)
      (setq indent 0)
    (unless dontaddnewline
      ;; Assume cursor at end of current line.  Add a CR, and make the list.
      (princ "\n")
      (princ (make-string indent ? ))))
  (princ "( ")
  (while tlist
    (if (semantic-tag-p (car tlist))
	(semantic-tag-write-one-tag (car tlist) (+ indent 2))
      ;; If we don't have a tag in the tag list, use the below hack, and hope
      ;; it doesn't contain anything bad.  If we find something bad, go back here
      ;; and start extending what's expected here.
      (princ (format "%S" (car tlist))))
    (setq tlist (cdr tlist))
    (when tlist
      (princ "\n")
      (princ (make-string (+ indent 2) ? )))
    )
  (princ ")")
  (princ (make-string indent ? ))
  )