# HG changeset patch
# User Stefan Monnier <monnier@iro.umontreal.ca>
# Date 1003436573 0
# Node ID 7507bd185307469d6489e0adf5ca09dbf5329087
# Parent  3f3bca32e246cf8fe27a43fccb5a2b2d83484b19
(xml-parse-tag): Use eq on char-after's return value.

diff -r 3f3bca32e246 -r 7507bd185307 lisp/xml.el
--- a/lisp/xml.el	Thu Oct 18 16:23:14 2001 +0000
+++ b/lisp/xml.el	Thu Oct 18 20:22:53 2001 +0000
@@ -230,7 +230,7 @@
 	    (append children '("")))
 
 	;; is this a valid start tag ?
-	(if (= (char-after) ?>)
+	(if (eq (char-after) ?>)
 	    (progn
 	      (forward-char 1)
 	      (skip-chars-forward " \t\n")