diff options
author | Stefan Monnier <monnier@iro.umontreal.ca> | 2001-10-18 20:19:51 +0000 |
---|---|---|
committer | Stefan Monnier <monnier@iro.umontreal.ca> | 2001-10-18 20:19:51 +0000 |
commit | 74087465d0d14cd5be27e4bccbd4c3bdeb39bfeb (patch) | |
tree | 44f1ff8e652306e4d077339a5726019d36409d0d | |
parent | b08a87e08d2c94c32ed10755429318d0ecbbfad4 (diff) | |
download | emacs-74087465d0d14cd5be27e4bccbd4c3bdeb39bfeb.tar.gz |
(xml-parse-tag): Use eq on char-after's return value.
-rw-r--r-- | lisp/xml.el | 2 |
1 files changed, 1 insertions, 1 deletions
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") |