Mercurial > emacs

changeset 40030:7507bd185307

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(xml-parse-tag): Use eq on char-after's return value.
author Stefan Monnier <monnier@iro.umontreal.ca>
date Thu, 18 Oct 2001 20:22:53 +0000
parents 3f3bca32e246
children 8aea3d7720c1
files lisp/xml.el
diffstat 1 files changed, 1 insertions(+), 1 deletions(-) [+]
line wrap: on
line diff
--- 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")