From: Stefan Monnier <monnier@iro.umontreal.ca>
Date: Thu, 18 Oct 2001 20:20:09 +0000 (+0000)
Subject: (xml-parse-tag): Use eq on char-after's return value.
X-Git-Tag: emacs-21.1~24
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=ef462716ddb1ad53117764e2da64aaa6244b0a30;p=emacs.git

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

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index c6dc52d5014..2d75c48f4de 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")