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 | |
| 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')
| -rw-r--r-- | lisp/ChangeLog | 5 | ||||
| -rw-r--r-- | lisp/progmodes/flymake.el | 6 |
2 files changed, 9 insertions, 2 deletions
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." |