Mercurial > emacs

comparison lisp/progmodes/flymake.el @ 65154:3c80217a6363

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(flymake-highlight-err-lines): Use save-excursion around flymake-highlight-line to preserve point.
author Eli Zaretskii <eliz@gnu.org>
date Fri, 26 Aug 2005 13:48:33 +0000
parents fb2cad4cfb30
children 8cdd634706b6
comparison
equal deleted inserted replaced
65153:a82972e21f7f 65154:3c80217a6363
804 err-info-list) 804 err-info-list)
805 805
806 (defun flymake-highlight-err-lines (buffer err-info-list) 806 (defun flymake-highlight-err-lines (buffer err-info-list)
807 "Highlight error lines in BUFFER using info from ERR-INFO-LIST." 807 "Highlight error lines in BUFFER using info from ERR-INFO-LIST."
808 (with-current-buffer buffer 808 (with-current-buffer buffer
809 (save-excursion
809 (let* ((idx 0) 810 (let* ((idx 0)
810 (count (length err-info-list))) 811 (count (length err-info-list)))
811 (while (< idx count) 812 (while (< idx count)
812 (flymake-highlight-line (car (nth idx err-info-list)) (nth 1 (nth idx err-info-list))) 813 (flymake-highlight-line (car (nth idx err-info-list))
813 (setq idx (1+ idx)))))) 814 (nth 1 (nth idx err-info-list)))
815 (setq idx (1+ idx)))))))
814 816
815 (defun flymake-overlay-p (ov) 817 (defun flymake-overlay-p (ov)
816 "Determine whether overlay OV was created by flymake." 818 "Determine whether overlay OV was created by flymake."
817 (and (overlayp ov) (overlay-get ov 'flymake-overlay))) 819 (and (overlayp ov) (overlay-get ov 'flymake-overlay)))
818 820