Mercurial > emacs
changeset 53377:e4e98d69d87a
Fix previous change. Remove redundant trailing whitespace.
| author | Eli Zaretskii <eliz@is.elta.co.il> |
|---|---|
| date | Mon, 29 Dec 2003 12:35:35 +0000 |
| parents | 305881e6e0cd |
| children | 0100ec077ce7 |
| files | lisp/xml.el |
| diffstat | 1 files changed, 7 insertions(+), 10 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/xml.el Mon Dec 29 12:13:27 2003 +0000 +++ b/lisp/xml.el Mon Dec 29 12:35:35 2003 +0000 @@ -109,12 +109,10 @@ nil is returned if the attribute was not found. See also `xml-get-attribute'." - (if (xml-node-attributes node) - (let ((value (assoc attribute (xml-node-attributes node)))) - (if value - (cdr value) - nil)) - nil)) + (when (xml-node-attributes node) + (let ((value (assoc attribute (xml-node-attributes node)))) + (when value + (cdr value))))) (defsubst xml-get-attribute (node attribute) "Get from NODE the value of ATTRIBUTE. @@ -295,7 +293,6 @@ attr-list) attr-list) - (defun xml-intern-attrlist (attr-list) "Convert attribute names to symbols for backward compatibility." (mapcar (lambda (attr) @@ -358,12 +355,12 @@ (let* ((node-name (match-string 1)) (attr-list (xml-parse-attlist)) (children (if (consp xml-ns) ;; take care of namespace parsing - (progn + (progn (setq xml-ns (xml-ns-parse-ns-attrs attr-list xml-ns)) - (list (xml-ns-expand-attr + (list (xml-ns-expand-attr attr-list xml-ns) - (xml-ns-expand-el + (xml-ns-expand-el node-name xml-ns))) (list (xml-intern-attrlist attr-list) (intern node-name))))