/[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.49 by rms, Tue Aug 9 02:52:15 2005 UTC revision 1.50 by hexmode, Thu Nov 3 03:56:38 2005 UTC
# Line 279  If PARSE-NS is non-nil, then QNAMES are Line 279  If PARSE-NS is non-nil, then QNAMES are
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'.")
# Line 473  Returns one of: Line 474  Returns one of:
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))))))))

Legend:
Removed from v.1.49  
changed lines
  Added in v.1.50

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