From e54030af3091fedcb15c97391e7c30673651c90b Mon Sep 17 00:00:00 2001 From: Stefan Monnier Date: Thu, 18 Oct 2001 20:24:09 +0000 Subject: [PATCH] (xml-parse-tag): Use eq on char-after's return value. --- lisp/ChangeLog | 8 ++++++-- lisp/xml.el | 2 +- 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 + + * xml.el (xml-parse-tag): Use eq on char-after's return value. + 2001-10-18 Gerd Moellmann * 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 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") -- 2.39.2