Mercurial > emacs
comparison lisp/xml.el @ 66646:173cd676da78
xml.el fixes
| author | Mark A. Hershberger <mah@everybody.org> |
|---|---|
| date | Thu, 03 Nov 2005 03:56:38 +0000 |
| parents | 950e3342b9d7 |
| children | bf640be8a692 7beb78bc1f8e |
comparison
equal
deleted
inserted
replaced
| 66645:98ed2e52cea0 | 66646:173cd676da78 |
|---|---|
| 277 ;; Non-alnum name chars should be symbol constituents (`-' and `_' | 277 ;; Non-alnum name chars should be symbol constituents (`-' and `_' |
| 278 ;; are OK by default). | 278 ;; are OK by default). |
| 279 (modify-syntax-entry ?. "_" table) | 279 (modify-syntax-entry ?. "_" table) |
| 280 (modify-syntax-entry ?: "_" table) | 280 (modify-syntax-entry ?: "_" table) |
| 281 ;; XML [89] | 281 ;; XML [89] |
| 282 (dolist (c '(#x00B7 #x02D0 #x02D1 #x0387 #x0640 #x0E46 #x0EC6 #x3005 | 282 (unless (featurep 'xemacs) |
| 283 #x3031 #x3032 #x3033 #x3034 #x3035 #x309D #x309E #x30FC | 283 (dolist (c '(#x00B7 #x02D0 #x02D1 #x0387 #x0640 #x0E46 #x0EC6 #x3005 |
| 284 #x30FD #x30FE)) | 284 #x3031 #x3032 #x3033 #x3034 #x3035 #x309D #x309E #x30FC |
| 285 (modify-syntax-entry (decode-char 'ucs c) "w" table)) | 285 #x30FD #x30FE)) |
| 286 (modify-syntax-entry (decode-char 'ucs c) "w" table))) | |
| 286 ;; Fixme: rest of [4] | 287 ;; Fixme: rest of [4] |
| 287 table) | 288 table) |
| 288 "Syntax table used by `xml-parse-region'.") | 289 "Syntax table used by `xml-parse-region'.") |
| 289 | 290 |
| 290 ;; XML [5] | 291 ;; XML [5] |
| 471 (let ((expansion (xml-parse-string))) | 472 (let ((expansion (xml-parse-string))) |
| 472 (setq children | 473 (setq children |
| 473 (if (stringp expansion) | 474 (if (stringp expansion) |
| 474 (if (stringp (car children)) | 475 (if (stringp (car children)) |
| 475 ;; The two strings were separated by a comment. | 476 ;; The two strings were separated by a comment. |
| 476 (setq children (append (concat (car children) expansion) | 477 (setq children (append (list (concat (car children) expansion)) |
| 477 (cdr children))) | 478 (cdr children))) |
| 478 (setq children (append (list expansion) children))) | 479 (setq children (append (list expansion) children))) |
| 479 (setq children (append expansion children)))))))) | 480 (setq children (append expansion children)))))))) |
| 480 | 481 |
| 481 (goto-char (match-end 0)) | 482 (goto-char (match-end 0)) |