From 1f33471ddab9571aa1654e8b51a73fe61194d097 Mon Sep 17 00:00:00 2001 From: Eli Zaretskii Date: Fri, 26 Aug 2005 13:49:07 +0000 Subject: (flymake-highlight-err-lines): Use save-excursion around flymake-highlight-line to preserve point. --- lisp/progmodes/flymake.el | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) (limited to 'lisp/progmodes/flymake.el') 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." -- cgit v1.2.3