Mercurial > emacs

changeset 98481:c14273ed6b9f

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Mario Lang <mlang at delysid.org> (xmltok-forward): Simplify.
author Glenn Morris <rgm@gnu.org>
date Fri, 03 Oct 2008 07:43:48 +0000
parents 68275b258695
children 690412c68c40
files lisp/nxml/xmltok.el
diffstat 1 files changed, 3 insertions(+), 5 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/nxml/xmltok.el	Fri Oct 03 07:24:54 2008 +0000
+++ b/lisp/nxml/xmltok.el	Fri Oct 03 07:43:48 2008 +0000
@@ -315,16 +315,14 @@
 	   (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))