diff options
| -rw-r--r-- | lisp/progmodes/compile.el | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lisp/progmodes/compile.el b/lisp/progmodes/compile.el index 4cd464e1c2a..3d879313d05 100644 --- a/lisp/progmodes/compile.el +++ b/lisp/progmodes/compile.el | |||
| @@ -1,6 +1,6 @@ | |||
| 1 | ;;; compile.el --- run compiler as inferior of Emacs, parse error messages. | 1 | ;;; compile.el --- run compiler as inferior of Emacs, parse error messages. |
| 2 | 2 | ||
| 3 | ;; Copyright (C) 1985, 86, 87, 93, 94 Free Software Foundation, Inc. | 3 | ;; Copyright (C) 1985, 86, 87, 93, 94, 1995 Free Software Foundation, Inc. |
| 4 | 4 | ||
| 5 | ;; Author: Roland McGrath <roland@prep.ai.mit.edu> | 5 | ;; Author: Roland McGrath <roland@prep.ai.mit.edu> |
| 6 | ;; Maintainer: FSF | 6 | ;; Maintainer: FSF |
| @@ -586,7 +586,7 @@ Just inserts the text, but uses `insert-before-markers'." | |||
| 586 | errors)) | 586 | errors)) |
| 587 | 587 | ||
| 588 | (defsubst compilation-buffer-p (buffer) | 588 | (defsubst compilation-buffer-p (buffer) |
| 589 | (assq 'compilation-error-list (buffer-local-variables buffer))) | 589 | (or compilation-minor-mode (eq major-mode 'compilation-mode))) |
| 590 | 590 | ||
| 591 | (defun compilation-next-error (n) | 591 | (defun compilation-next-error (n) |
| 592 | "Move point to the next error in the compilation buffer. | 592 | "Move point to the next error in the compilation buffer. |