/[emacs]/emacs/lisp/progmodes/compile.el
ViewVC logotype

Diff of /emacs/lisp/progmodes/compile.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.347 by pfeiffer, Thu Mar 3 20:08:21 2005 UTC revision 1.348 by jurta, Tue Mar 29 04:56:44 2005 UTC
# Line 1613  and overlay is highlighted between MK an Line 1613  and overlay is highlighted between MK an
1613      (compilation-set-window-height w)      (compilation-set-window-height w)
1614    
1615      (when highlight-regexp      (when highlight-regexp
1616          (if (timerp next-error-highlight-timer)
1617              (cancel-timer next-error-highlight-timer))
1618        (unless compilation-highlight-overlay        (unless compilation-highlight-overlay
1619          (setq compilation-highlight-overlay          (setq compilation-highlight-overlay
1620                (make-overlay (point-min) (point-min)))                (make-overlay (point-min) (point-min)))
# Line 1632  and overlay is highlighted between MK an Line 1634  and overlay is highlighted between MK an
1634                (move-overlay compilation-highlight-overlay                (move-overlay compilation-highlight-overlay
1635                              (point) end (current-buffer)))                              (point) end (current-buffer)))
1636              (if (numberp next-error-highlight)              (if (numberp next-error-highlight)
1637                  (sit-for next-error-highlight))                  (setq next-error-highlight-timer
1638              (if (not (eq next-error-highlight t))                        (run-at-time next-error-highlight nil 'delete-overlay
1639                                       compilation-highlight-overlay)))
1640                (if (not (or (eq next-error-highlight t)
1641                             (numberp next-error-highlight)))
1642                  (delete-overlay compilation-highlight-overlay))))))                  (delete-overlay compilation-highlight-overlay))))))
1643      (when (and (eq next-error-highlight 'fringe-arrow))      (when (and (eq next-error-highlight 'fringe-arrow))
1644        (set (make-local-variable 'overlay-arrow-position)        (set (make-local-variable 'overlay-arrow-position)

Legend:
Removed from v.1.347  
changed lines
  Added in v.1.348

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26