From: Eli Zaretskii <eliz@gnu.org>
Date: Fri, 26 Aug 2005 13:49:07 +0000 (+0000)
Subject: (flymake-highlight-err-lines): Use save-excursion around
X-Git-Tag: emacs-pretest-22.0.90~7425
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=1f33471ddab9571aa1654e8b51a73fe61194d097;p=emacs.git

(flymake-highlight-err-lines): Use save-excursion around
flymake-highlight-line to preserve point.
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 14d59aa3fc8..85e5dfabc00 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2005-08-26  Pavel Kobiakov  <pk_at_work@yahoo.com>
+
+	* progmodes/flymake.el (flymake-highlight-err-lines): Use
+	save-excursion around flymake-highlight-line to preserve point.
+
 2005-08-26  Eli Zaretskii  <eliz@gnu.org>
 
 	* progmodes/octave-mod.el: Change Author and Maintainer address.
diff --git a/lisp/progmodes/flymake.el b/lisp/progmodes/flymake.el
index 8854d57915c..d137284f795 100644
--- a/lisp/progmodes/flymake.el
+++ b/lisp/progmodes/flymake.el
@@ -806,11 +806,13 @@ line number outside the file being compiled."
 (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."