Function: semantic-tag-write-one-value

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

Signature

(semantic-tag-write-one-value VALUE INDENT)

Documentation

Write out a VALUE for something in a tag.

INDENT is the current tag indentation. Items that are long lists of tags may need their own line.

Source Code

;; Defined in /usr/src/emacs/lisp/cedet/semantic/tag-write.el.gz
(defun semantic-tag-write-one-value (value indent)
  "Write out a VALUE for something in a tag.
INDENT is the current tag indentation.
Items that are long lists of tags may need their own line."
  (cond
   ;; Another tag.
   ((semantic-tag-p value)
    (semantic-tag-write-one-tag value (+ indent 2)))
   ;; A list of more tags
   ((and (listp value) (semantic-tag-p (car value)))
    (semantic-tag-write-tag-list value (+ indent 2))
    )
   ;; Some arbitrary data.
   (t
    (let ((str (format "%S" value)))
      ;; Protect against odd data types in tags.
      (if (= (aref str 0) ?#)
	  (progn
	    (princ "nil")
	    (message "Warning: Value %s not writable in tag." str))
	(princ str)))))
  )