Commit 0902676f authored by david's avatar david

Revision: cxml--devel--1.0--patch-10

Archive: david@knowledgetools.de--cxml
Creator: David Lichteblau <david@knowledgetools.de>
Date: Fri Jan  9 23:03:41 CET 2004
Standard-date: 2004-01-09 22:03:41 GMT
Modified-files: xml/dom-impl.lisp
New-patches: david@knowledgetools.de--cxml/cxml--devel--1.0--patch-10
Summary: make dom:get-elements-by-tag-name case insensitive

make dom:get-elements-by-tag-name case insensitive
parent ee14c42d
......@@ -140,7 +140,7 @@
(let ((wild-p (rod= tag-name '#.(string-rod "*"))))
(labels ((tag-name-eq (a b)
;; XXX ist das richtig? TAG-NAME-EQ war undefiniert
(rod= a b))
(rod-equal a b))
(walk (n)
(when (and (dom:element-p n)
(or wild-p (tag-name-eq tag-name (dom:node-name n))))
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment