(xml-parse-tag): Use eq on char-after's return value.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 9242bbd4ec48fdfe26253ab2e59d021cfd213a1d..c4bfdca03b8282fdb7b399773db4e5bb475fa677 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,9 +1,13 @@
+2001-10-18  Stefan Monnier  <monnier@cs.yale.edu>
+
+       * xml.el (xml-parse-tag): Use eq on char-after's return value.
+
 2001-10-18  Gerd Moellmann  <gerd@gnu.org>
 
        * isearch.el (isearch-mode-map): Bind `mouse-movement' to nil.
 
-       * obsolete/hilit19.el (hilit-lookup-face-create): Call
-       set-face-font only if display-graphic-p.
+       * obsolete/hilit19.el (hilit-lookup-face-create):
+       Call set-face-font only if display-graphic-p.
        (toplevel): Remove references to window-system.
 
 2001-10-18  Miles Bader  <miles@gnu.org>

diff --git a/lisp/xml.el b/lisp/xml.el
index 23d4e5d25b1a5b455b5c9b3fa676da87a95a3a11..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")