Mercurial > emacs
comparison lisp/xml.el @ 53011:45bd3ad34572
(xml-parse-dtd): Fix misplaced paren.
author | Andreas Schwab <schwab@suse.de> |
---|---|
date | Fri, 07 Nov 2003 16:05:26 +0000 |
parents | 6958c2be0aa9 |
children | e085973399ee |
comparison
equal
deleted
inserted
replaced
53010:9a2bdd639c25 | 53011:45bd3ad34572 |
---|---|
544 (error "XML: Invalid element type in the DTD"))) | 544 (error "XML: Invalid element type in the DTD"))) |
545 | 545 |
546 ;; rule [45]: the element declaration must be unique | 546 ;; rule [45]: the element declaration must be unique |
547 (if (assoc element dtd) | 547 (if (assoc element dtd) |
548 (error "XML: element declarations must be unique in a DTD (<%s>)" | 548 (error "XML: element declarations must be unique in a DTD (<%s>)" |
549 element) | 549 element)) |
550 | 550 |
551 ;; Store the element in the DTD | 551 ;; Store the element in the DTD |
552 (push (list element type) dtd) | 552 (push (list element type) dtd) |
553 (goto-char end-pos)) | 553 (goto-char end-pos)) |
554 ((looking-at "<!--") | 554 ((looking-at "<!--") |
557 (t | 557 (t |
558 (error "XML: Invalid DTD item"))) | 558 (error "XML: Invalid DTD item"))) |
559 | 559 |
560 ;; Skip the end of the DTD | 560 ;; Skip the end of the DTD |
561 (search-forward ">")))) | 561 (search-forward ">")))) |
562 (nreverse dtd)))) | 562 (nreverse dtd))) |
563 | 563 |
564 (defun xml-parse-elem-type (string) | 564 (defun xml-parse-elem-type (string) |
565 "Convert element type STRING into a Lisp structure." | 565 "Convert element type STRING into a Lisp structure." |
566 | 566 |
567 (let (elem modifier) | 567 (let (elem modifier) |