727 |
(match-string 1 this-part))))))) |
(match-string 1 this-part))))))) |
728 |
|
|
729 |
(cond ((null children) |
(cond ((null children) |
730 |
(if (and (eq (length expansion) 1) |
;; FIXME: If we have an entity that expands into XML, this won't work. |
731 |
(stringp (cadr expansion))) |
(setq children |
732 |
(setq children (concat prev-part expansion)) |
(concat prev-part expansion))) |
|
(if (stringp (car expansion)) |
|
|
(setq children |
|
|
(list (concat prev-part (car expansion)) |
|
|
(append (cdr expansion)))) |
|
|
(setq children (append expansion prev-part))))) |
|
733 |
((stringp children) |
((stringp children) |
734 |
(if (stringp expansion) |
(if (stringp expansion) |
735 |
(setq children (concat children prev-part expansion)) |
(setq children (concat children prev-part expansion)) |