procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

(flymake-highlight-err-lines): Use save-excursion around

Browse source 
flymake-highlight-line to preserve point.
This commit is contained in:
Eli Zaretskii 2005-08-26 13:49:07 +00:00
parent d0943d40f8
commit 1f33471dda
2 changed files with 9 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
lisp/ChangeLog
View file

@ -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> 2005-08-26 Eli Zaretskii <eliz@gnu.org>
* progmodes/octave-mod.el: Change Author and Maintainer address. * progmodes/octave-mod.el: Change Author and Maintainer address.

6
lisp/progmodes/flymake.el
View file

@ -806,11 +806,13 @@ line number outside the file being compiled."
(defun flymake-highlight-err-lines (buffer err-info-list) (defun flymake-highlight-err-lines (buffer err-info-list)
"Highlight error lines in BUFFER using info from ERR-INFO-LIST." "Highlight error lines in BUFFER using info from ERR-INFO-LIST."
(with-current-buffer buffer (with-current-buffer buffer
(save-excursion
(let* ((idx 0) (let* ((idx 0)
(count (length err-info-list))) (count (length err-info-list)))
(while (< idx count) (while (< idx count)
(flymake-highlight-line (car (nth idx err-info-list)) (nth 1 (nth idx err-info-list))) (flymake-highlight-line (car (nth idx err-info-list))
(setq idx (1+ idx)))))) (nth 1 (nth idx err-info-list)))
(setq idx (1+ idx)))))))
(defun flymake-overlay-p (ov) (defun flymake-overlay-p (ov)
"Determine whether overlay OV was created by flymake." "Determine whether overlay OV was created by flymake."