Mercurial > emacs
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") |