Function: svg-print

svg-print is a byte-compiled function defined in svg.el.gz.

Signature

(svg-print DOM)

Documentation

Convert DOM into a string containing the xml representation.

Source Code

;; Defined in /usr/src/emacs/lisp/svg.el.gz
(defun svg-print (dom)
  "Convert DOM into a string containing the xml representation."
  (if (stringp dom)
      (insert dom)
    (insert (format "<%s" (car dom)))
    (dolist (attr (nth 1 dom))
      ;; Ignore attributes that start with a colon.
      (unless (= (aref (format "%s" (car attr)) 0) ?:)
        (insert (format " %s=\"%s\"" (car attr) (cdr attr)))))
    (insert ">")
    (dolist (elem (nthcdr 2 dom))
      (svg-print elem))
    (insert (format "</%s>" (car dom)))))