diff options
| author | Eli Zaretskii <eliz@gnu.org> | 2005-08-26 13:49:07 +0000 |
|---|---|---|
| committer | Eli Zaretskii <eliz@gnu.org> | 2005-08-26 13:49:07 +0000 |
| commit | 1f33471ddab9571aa1654e8b51a73fe61194d097 (patch) | |
| tree | c7e11f3c8b43f1d77cc8a11db19349ba6b365631 /lisp/progmodes | |
| parent | d0943d40f8ea9df6e69df2625e71ce8d9075d182 (diff) | |
| download | emacs-1f33471ddab9571aa1654e8b51a73fe61194d097.tar.gz emacs-1f33471ddab9571aa1654e8b51a73fe61194d097.tar.bz2 emacs-1f33471ddab9571aa1654e8b51a73fe61194d097.zip | |
(flymake-highlight-err-lines): Use save-excursion around
flymake-highlight-line to preserve point.
Diffstat (limited to 'lisp/progmodes')
| -rw-r--r-- | lisp/progmodes/flymake.el | 6 |
1 files changed, 4 insertions, 2 deletions
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." |