From 603282c98af464aa82e9698d07e935b10bf6d60c Mon Sep 17 00:00:00 2001 From: Dan McKinley Date: Sat, 27 Feb 2010 11:43:49 -0500 Subject: [PATCH] more comment cleanup --- gist.el | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) diff --git a/gist.el b/gist.el index 2879587..77f35cc 100644 --- a/gist.el +++ b/gist.el @@ -301,12 +301,13 @@ for the gist." (car (xml-node-children (assq sym children))))) (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." (mapcar 'gist-xml-cleanup-node xml-list)) (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 (xml-node-name node) (xml-node-attributes node)