Re: Recent documents: Emacs and GNOME integration

[Stuart D. Herring]

I wrote:
> Hoping that the patch doesn't reveal that I shouldn't be touching this at
> all,
> Davis

Er, I think it did.  But maybe this slightly different one won't:

*** xml.el.~1.53.~      2006-02-06 07:33:36.000000000 -0700
--- xml.el      2006-05-17 13:00:44.000000000 -0600
***************
*** 118,123 ****
--- 118,129 ----

    (car node))

+ (defsubst xml-node-name-as-string (node)
+   "Return the tag associated with NODE as a string."
+   (setq node (xml-node-name node))
+   (if (symbolp node) (symbol-name node)
+     (concat (car node) (cdr node))))
+
  (defsubst xml-node-attributes (node)
    "Return the list of attributes of NODE.
  The list can be nil."
***************
*** 848,854 ****
  The first line is indented with INDENT-STRING."
    (let ((tree xml)
        attlist)
!     (insert indent-string ?< (symbol-name (xml-node-name tree)))

      ;;  output the attribute list
      (setq attlist (xml-node-attributes tree))
--- 854,860 ----
  The first line is indented with INDENT-STRING."
    (let ((tree xml)
        attlist)
!     (insert indent-string ?< (xml-node-name-as-string tree))

      ;;  output the attribute list
      (setq attlist (xml-node-attributes tree))
***************
*** 875,881 ****
        (when (not (and (null (cdr tree))
                      (stringp (car tree))))
        (insert ?\n indent-string))
!       (insert ?< ?/ (symbol-name (xml-node-name xml)) ?>))))

  (provide 'xml)

--- 881,887 ----
        (when (not (and (null (cdr tree))
                      (stringp (car tree))))
        (insert ?\n indent-string))
!       (insert ?< ?/ (xml-node-name-as-string xml) ?>))))

  (provide 'xml)

Davis

-- 
This product is sold by volume, not by mass.  If it appears too dense or
too sparse, it is because mass-energy conversion has occurred during
shipping.