Skip to content

Commit

Permalink
more comment cleanup
Browse files Browse the repository at this point in the history
  • Loading branch information
mcfunley committed Feb 27, 2010
1 parent e28fee7 commit 603282c
Showing 1 changed file with 3 additions and 2 deletions.
5 changes: 3 additions & 2 deletions gist.el
Expand Up @@ -301,12 +301,13 @@ for the gist."
(car (xml-node-children (assq sym children))))) (car (xml-node-children (assq sym children)))))


(defun gist-xml-cleanup (xml-list) (defun gist-xml-cleanup (xml-list)
"Remove empty strings or whitespace nodes from the `xml-list'. "Removes empty strings or whitespace nodes from the `xml-list'.
Borrowed from rss.el." Borrowed from rss.el."
(mapcar 'gist-xml-cleanup-node xml-list)) (mapcar 'gist-xml-cleanup-node xml-list))


(defun gist-xml-cleanup-node (node) (defun gist-xml-cleanup-node (node)
"Recursively Removes whitespace and empty strings from the given xml `node'." "Recursively removes whitespace and empty strings from the given xml `node'.
Borrowed from rss.el."
(apply 'list (apply 'list
(xml-node-name node) (xml-node-name node)
(xml-node-attributes node) (xml-node-attributes node)
Expand Down

0 comments on commit 603282c

Please sign in to comment.