mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-04-27 16:51:06 -07:00
Code Issues Projects Releases Wiki Activity

Mario Lang <mlang at delysid.org>

Browse source 
(xmltok-forward): Simplify.
This commit is contained in:
Glenn Morris 2008-10-03 07:43:58 +00:00
parent 52ef9375bb
commit eb22cb8cba
2 changed files with 7 additions and 5 deletions
Download patch file Download diff file Expand all files Collapse all files

4
lisp/ChangeLog
View file

@ -1,3 +1,7 @@
2008-10-03 Mario Lang <mlang@delysid.org>
* nxml/xmltok.el (xmltok-forward): Simplify.
2008-10-03 Glenn Morris <rgm@gnu.org>
* frame.el (set-default-font): Make obsolete.

8
lisp/nxml/xmltok.el
View file

@ -315,16 +315,14 @@ and VALUE-END, otherwise a STRING giving the value."
(cond ((> space-count 0)
(setq xmltok-type 'space))
(t
(goto-char (1+ (point)))
(forward-char 1)
(xmltok-scan-after-lt))))
((eq ch ?\&)
(cond ((> space-count 0)
(setq xmltok-type 'space))
(t
(goto-char (1+ (point)))
(xmltok-scan-after-amp
(lambda (start end)
(xmltok-handle-entity start end))))))
(forward-char 1)
(xmltok-scan-after-amp 'xmltok-handle-entity))))
((re-search-forward "[<&]\\|\\(]]>\\)" nil t)
(cond ((not (match-beginning 1))
(goto-char (match-beginning 0))