# HG changeset patch
# User Eli Zaretskii <eliz@gnu.org>
# Date 1125064113 0
# Node ID 3c80217a6363f1dd56c2d43542a38a51a759eca6
# Parent  a82972e21f7fb59e6a3466693185f16d5cf1e45a
(flymake-highlight-err-lines): Use save-excursion around
flymake-highlight-line to preserve point.

diff -r a82972e21f7f -r 3c80217a6363 lisp/progmodes/flymake.el
--- a/lisp/progmodes/flymake.el	Fri Aug 26 13:42:43 2005 +0000
+++ b/lisp/progmodes/flymake.el	Fri Aug 26 13:48:33 2005 +0000
@@ -806,11 +806,13 @@
 (defun flymake-highlight-err-lines (buffer err-info-list)
   "Highlight error lines in BUFFER using info from ERR-INFO-LIST."
   (with-current-buffer buffer
+   (save-excursion
     (let* ((idx    0)
 	   (count  (length err-info-list)))
       (while (< idx count)
-	(flymake-highlight-line (car (nth idx err-info-list)) (nth 1 (nth idx err-info-list)))
-	(setq idx (1+ idx))))))
+	(flymake-highlight-line (car (nth idx err-info-list))
+				(nth 1 (nth idx err-info-list)))
+	(setq idx (1+ idx)))))))
 
 (defun flymake-overlay-p (ov)
   "Determine whether overlay OV was created by flymake."