diff options
author | Roland McGrath <[email protected]> | 1995-02-26 21:37:30 +0000 |
---|---|---|
committer | Roland McGrath <[email protected]> | 1995-02-26 21:37:30 +0000 |
commit | 8fca6c30ae3bf0bb077872abbab5f46b64a5febb (patch) | |
tree | b1c563c9cb9cdc8db137254af5e6ff147e6ad3bb | |
parent | c1ff6dac5c095a9e77621c511bc2599aa21eb0a1 (diff) |
(compilation-buffer-p): Check for compilation-minor-mode or
compilation-mode major mode, rather than internal state variables. Don't
want to match a buffer that was once in compilation-minor-mode but is not now.
-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 4cd464e1c2..3d879313d0 100644 --- a/lisp/progmodes/compile.el +++ b/lisp/progmodes/compile.el @@ -1,6 +1,6 @@ ;;; compile.el --- run compiler as inferior of Emacs, parse error messages. -;; Copyright (C) 1985, 86, 87, 93, 94 Free Software Foundation, Inc. +;; Copyright (C) 1985, 86, 87, 93, 94, 1995 Free Software Foundation, Inc. ;; Author: Roland McGrath <[email protected]> ;; Maintainer: FSF @@ -586,7 +586,7 @@ Just inserts the text, but uses `insert-before-markers'." errors)) (defsubst compilation-buffer-p (buffer) - (assq 'compilation-error-list (buffer-local-variables buffer))) + (or compilation-minor-mode (eq major-mode 'compilation-mode))) (defun compilation-next-error (n) "Move point to the next error in the compilation buffer. |