279 |
(modify-syntax-entry ?. "_" table) |
(modify-syntax-entry ?. "_" table) |
280 |
(modify-syntax-entry ?: "_" table) |
(modify-syntax-entry ?: "_" table) |
281 |
;; XML [89] |
;; XML [89] |
282 |
(dolist (c '(#x00B7 #x02D0 #x02D1 #x0387 #x0640 #x0E46 #x0EC6 #x3005 |
(unless (featurep 'xemacs) |
283 |
#x3031 #x3032 #x3033 #x3034 #x3035 #x309D #x309E #x30FC |
(dolist (c '(#x00B7 #x02D0 #x02D1 #x0387 #x0640 #x0E46 #x0EC6 #x3005 |
284 |
#x30FD #x30FE)) |
#x3031 #x3032 #x3033 #x3034 #x3035 #x309D #x309E #x30FC |
285 |
(modify-syntax-entry (decode-char 'ucs c) "w" table)) |
#x30FD #x30FE)) |
286 |
|
(modify-syntax-entry (decode-char 'ucs c) "w" table))) |
287 |
;; Fixme: rest of [4] |
;; Fixme: rest of [4] |
288 |
table) |
table) |
289 |
"Syntax table used by `xml-parse-region'.") |
"Syntax table used by `xml-parse-region'.") |
474 |
(if (stringp expansion) |
(if (stringp expansion) |
475 |
(if (stringp (car children)) |
(if (stringp (car children)) |
476 |
;; The two strings were separated by a comment. |
;; The two strings were separated by a comment. |
477 |
(setq children (append (concat (car children) expansion) |
(setq children (append (list (concat (car children) expansion)) |
478 |
(cdr children))) |
(cdr children))) |
479 |
(setq children (append (list expansion) children))) |
(setq children (append (list expansion) children))) |
480 |
(setq children (append expansion children)))))))) |
(setq children (append expansion children)))))))) |