diff options
| author | Stefan Monnier <monnier@iro.umontreal.ca> | 2001-10-18 20:24:09 +0000 |
|---|---|---|
| committer | Stefan Monnier <monnier@iro.umontreal.ca> | 2001-10-18 20:24:09 +0000 |
| commit | e54030af3091fedcb15c97391e7c30673651c90b (patch) | |
| tree | 6b0250f2b6bc715badf7f2bd01ee93227ce3504b | |
| parent | 97f4db8c94f258ac20234402fd502facfbc87be6 (diff) | |
| download | emacs-e54030af3091fedcb15c97391e7c30673651c90b.tar.gz emacs-e54030af3091fedcb15c97391e7c30673651c90b.tar.bz2 emacs-e54030af3091fedcb15c97391e7c30673651c90b.zip | |
(xml-parse-tag): Use eq on char-after's return value.
| -rw-r--r-- | lisp/ChangeLog | 8 | ||||
| -rw-r--r-- | 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 <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") |