comparison lisp/progmodes/compile.el @ 10842:076c2c2b4f06

(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.
author Roland McGrath <roland@gnu.org>
date Sun, 26 Feb 1995 21:37:30 +0000
parents a8379d78b06a
children a008a9d8966a
comparison
equal deleted inserted replaced
10841:88926963f1ae 10842:076c2c2b4f06
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
7 ;; Keywords: tools, processes 7 ;; Keywords: tools, processes
8 8
584 (> (point) (car (car errors)))) 584 (> (point) (car (car errors))))
585 (setq errors (cdr errors))) 585 (setq errors (cdr errors)))
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.
593 Does NOT find the source line like \\[next-error]." 593 Does NOT find the source line like \\[next-error]."
594 (interactive "p") 594 (interactive "p")