mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-16 02:50:26 -08:00
Code Issues Projects Releases Wiki Activity

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

Browse source
This commit is contained in:
Stefan Monnier 2001-10-18 20:24:09 +00:00
parent 97f4db8c94
commit e54030af30
2 changed files with 7 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

8
lisp/ChangeLog
View file

@ -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>

2
lisp/xml.el
View file

@ -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")