diff options
| author | Stefan Monnier <monnier@iro.umontreal.ca> | 2007-07-30 17:38:24 +0000 |
|---|---|---|
| committer | Stefan Monnier <monnier@iro.umontreal.ca> | 2007-07-30 17:38:24 +0000 |
| commit | b956d64f8087f9ef4a72718d918f87fe59609694 (patch) | |
| tree | cb21dc44937a554cc7c709887fe21dccb617cbc7 | |
| parent | 05b6a3f3c05b3d8589a67926f19bfda8d03b71bd (diff) | |
| download | emacs-b956d64f8087f9ef4a72718d918f87fe59609694.tar.gz | |
(compilation-forget-errors): Reset compilation-auto-jump-to-next.
| -rw-r--r-- | lisp/ChangeLog | 5 | ||||
| -rw-r--r-- | lisp/progmodes/compile.el | 11 |
2 files changed, 13 insertions, 3 deletions
diff --git a/lisp/ChangeLog b/lisp/ChangeLog index d23489d3956..8ef17eb7f71 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,8 @@ +2007-07-30 Stefan Monnier <monnier@iro.umontreal.ca> + + * progmodes/compile.el (compilation-forget-errors): + Reset compilation-auto-jump-to-next. + 2007-07-30 Michael Olson <mwolson@gnu.org> * cus-edit.el (custom-group-save): Fix void function definition diff --git a/lisp/progmodes/compile.el b/lisp/progmodes/compile.el index ceb9a7b924d..2710066c2cd 100644 --- a/lisp/progmodes/compile.el +++ b/lisp/progmodes/compile.el @@ -2050,9 +2050,9 @@ The file-structure looks like this: ;; compilation-error-list) to point-min, but that was only meaningful for ;; the internal uses of compilation-forget-errors: all calls from external ;; packages seem to be followed by a move of compilation-parsing-end to - ;; something equivalent to point-max. So we speculatively move + ;; something equivalent to point-max. So we heuristically move ;; compilation-current-error to point-max (since the external package - ;; won't know that it should do it). --stef + ;; won't know that it should do it). --Stef (setq compilation-current-error nil) (let* ((proc (get-buffer-process (current-buffer))) (mark (if proc (process-mark proc))) @@ -2063,7 +2063,12 @@ The file-structure looks like this: ;; we need to put ours just before the insertion point rather ;; than at the insertion point. If that's not possible, then ;; don't use a marker. --Stef - (if (> pos (point-min)) (copy-marker (1- pos)) pos)))) + (if (> pos (point-min)) (copy-marker (1- pos)) pos))) + ;; Again, since this command is used in buffers that contain several + ;; compilations, to set the beginning of "this compilation", it's a good + ;; place to reset compilation-auto-jump-to-next. + (set (make-local-variable 'compilation-auto-jump-to-next) + compilation-auto-jump-to-first-error)) ;;;###autoload (add-to-list 'auto-mode-alist '("\\.gcov\\'" . compilation-mode)) |