mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-17 19:30:38 -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> 2001-10-18 Gerd Moellmann <gerd@gnu.org>
* isearch.el (isearch-mode-map): Bind `mouse-movement' to nil. * isearch.el (isearch-mode-map): Bind `mouse-movement' to nil.
* obsolete/hilit19.el (hilit-lookup-face-create): Call * obsolete/hilit19.el (hilit-lookup-face-create):
set-face-font only if display-graphic-p. Call set-face-font only if display-graphic-p.
(toplevel): Remove references to window-system. (toplevel): Remove references to window-system.
2001-10-18 Miles Bader <miles@gnu.org> 2001-10-18 Miles Bader <miles@gnu.org>

2
lisp/xml.el
View file

@ -230,7 +230,7 @@ Returns one of:
(append children '(""))) (append children '("")))
;; is this a valid start tag ? ;; is this a valid start tag ?
(if (= (char-after) ?>) (if (eq (char-after) ?>)
(progn (progn
(forward-char 1) (forward-char 1)
(skip-chars-forward " \t\n") (skip-chars-forward " \t\n")