updated (C)

[gnu-emacs] / lisp / xml.el

diff --git a/lisp/xml.el b/lisp/xml.el
index ac27b776b95eae6aa3402a2a820931ca149c8dbf..b2831c6ac54ee033d810a6d0c49bd850248b493c 100644 (file)
--- a/lisp/xml.el
+++ b/lisp/xml.el
@@ -230,7 +230,7 @@ Returns one of:
            (append children '("")))
 
        ;; is this a valid start tag ?
-       (if (= (char-after) ?>)
+       (if (eq (char-after) ?>)
            (progn
              (forward-char 1)
              (skip-chars-forward " \t\n")
@@ -290,7 +290,7 @@ Leaves the point on the first non-blank character after the tag."
       ;; Do we have a string between quotes (or double-quotes),
       ;;  or a simple word ?
       (unless (looking-at "\"\\([^\"]+\\)\"")
-       (unless (looking-at "'\\([^\"]+\\)'")
+       (unless (looking-at "'\\([^']+\\)'")
          (error "XML: Attribute values must be given between quotes")))
 
       ;; Each attribute must be unique within a given element