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

2 files changed, 7 insertions, 3 deletions

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 9242bbd4ec4..c4bfdca03b8 100644
--- 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 23d4e5d25b1..b2831c6ac54 100644
--- 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")