/[emacs]/emacs/lisp/xml.el
ViewVC logotype

Diff of /emacs/lisp/xml.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.38 by jpw, Wed Oct 6 06:03:54 2004 UTC revision 1.39 by hexmode, Thu Oct 7 18:13:43 2004 UTC
# Line 727  This follows the rule [28] in the XML sp Line 727  This follows the rule [28] in the XML sp
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))

Legend:
Removed from v.1.38  
changed lines
  Added in v.1.39

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26