(compilation-find-buffer): Only choose compilation-last-buffer if it is

compilation-buffer-p.

(compilation-find-buffer): Only choose compilation-last-buffer if it is
compilation-buffer-p.
95d219b5 · Roland McGrath · f694e5d2 · 95d219b5
Commit 95d219b5 authored Mar 14, 1996 by Roland McGrath
Hide whitespace changes
Inline Side-by-side

Showing with 1 addition and 0 deletions

lisp/progmodes/compile.el lisp/progmodes/compile.el +1 -0

No files found.
--- a/lisp/progmodes/compile.el
+++ b/lisp/progmodes/compile.el
@@ -913,6 +913,7 @@ other kinds of prefix arguments are ignored."
      ;; The current buffer is a compilation buffer.
      (current-buffer)
    (if (and compilation-last-buffer (buffer-name compilation-last-buffer)
+	     (compilation-buffer-p compilation-last-buffer)
 	     (or (not other-buffer) (not (eq compilation-last-buffer
 					     (current-buffer)))))
 	compilation-last-buffer