Merge from emacs-23

[gnu-emacs] / lisp / nxml / nxml-maint.el

diff --git a/lisp/nxml/nxml-maint.el b/lisp/nxml/nxml-maint.el
index 20a3b09d3faafc71d8027bfcf212f322d4a4ce8d..ae828cf335bdc563680984f73f089fa6d015ae86 100644 (file)
--- a/lisp/nxml/nxml-maint.el
+++ b/lisp/nxml/nxml-maint.el
@@ -78,7 +78,7 @@
       (goto-char (point-min))
       (while (re-search-forward "^ *\\([a-FA-F0-9]\\{2\\}\\)[ \t]+" nil t)
        (let ((row (match-string 1))
-             (eol (save-excursion (end-of-line) (point))))
+             (eol (line-end-position)))
          (while (re-search-forward "\\([a-FA-F0-9]\\{2\\}\\)-\\([a-FA-F0-9]\\{2\\}\\)\\|\\([a-FA-F0-9]\\{2\\}\\)" eol t)
            (setq lst
                  (cons (if (match-beginning 3)
@@ -102,5 +102,4 @@
 
 (provide 'nxml-maint)
 
-;; arch-tag: 2cff6b55-12af-47db-90da-a91f782f435a
 ;;; nxml-maint.el ends here