Mercurial > emacs
comparison lisp/xml.el @ 43739:373960858ccc
* xml.el (xml-parse-attlist): Accept empty strings.
From Max Froumentin <mf@w3.org>.
| author | ShengHuo ZHU <zsh@cs.rochester.edu> |
|---|---|
| date | Tue, 05 Mar 2002 21:44:01 +0000 |
| parents | 54db4085a7df |
| children | 00120418fc70 |
comparison
equal
deleted
inserted
replaced
| 43738:c32d1082ee0e | 43739:373960858ccc |
|---|---|
| 286 (setq name (intern (match-string 1))) | 286 (setq name (intern (match-string 1))) |
| 287 (goto-char (match-end 0)) | 287 (goto-char (match-end 0)) |
| 288 | 288 |
| 289 ;; Do we have a string between quotes (or double-quotes), | 289 ;; Do we have a string between quotes (or double-quotes), |
| 290 ;; or a simple word ? | 290 ;; or a simple word ? |
| 291 (unless (looking-at "\"\\([^\"]+\\)\"") | 291 (unless (looking-at "\"\\([^\"]*\\)\"") |
| 292 (unless (looking-at "'\\([^']+\\)'") | 292 (unless (looking-at "'\\([^']*\\)'") |
| 293 (error "XML: Attribute values must be given between quotes"))) | 293 (error "XML: Attribute values must be given between quotes"))) |
| 294 | 294 |
| 295 ;; Each attribute must be unique within a given element | 295 ;; Each attribute must be unique within a given element |
| 296 (if (assoc name attlist) | 296 (if (assoc name attlist) |
| 297 (error "XML: each attribute must be unique within an element")) | 297 (error "XML: each attribute must be unique within an element")) |