Commit eb22cb8c authored by Glenn Morris's avatar Glenn Morris
Browse files

Mario Lang <mlang at delysid.org>

(xmltok-forward): Simplify.
parent 52ef9375
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.
......
......@@ -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))
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment