From: Juanma Barranquero Date: Tue, 30 Aug 2005 10:39:41 +0000 (+0000) Subject: (font-lock-extra-managed-props, font-lock-keywords, font-lock-maximum-size, X-Git-Tag: emacs-pretest-22.0.90~7361 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=e623859c9604ee1a6994ef05d82cf91053d5aba8;p=emacs.git (font-lock-extra-managed-props, font-lock-keywords, font-lock-maximum-size, font-lock-support-mode): Add defvars. --- diff --git a/lisp/progmodes/compile.el b/lisp/progmodes/compile.el index b41cc601fe7..9ac3aa5709d 100644 --- a/lisp/progmodes/compile.el +++ b/lisp/progmodes/compile.el @@ -70,6 +70,12 @@ (eval-when-compile (require 'cl)) +(defvar font-lock-extra-managed-props) +(defvar font-lock-keywords) +(defvar font-lock-maximum-size) +(defvar font-lock-support-mode) + + (defgroup compilation nil "Run compiler as inferior of Emacs, parse error messages." :group 'tools @@ -287,11 +293,11 @@ File = \\(.+\\), Line = \\([0-9]+\\)\\(?:, Column = \\([0-9]+\\)\\)?" \\(?:: \\(warning:\\)?\\|$\\| ),\\)" 1 2 nil (3)) (gcov-file - "^ +-: \\(0\\):Source:\\(.+\\)$" 2 1 nil 0) + "^ +-: \\(0\\):Source:\\(.+\\)$" 2 1 nil 0) (gcov-bb-file - "^ +-: \\(0\\):Object:\\(?:.+\\)$" nil 1 nil 0) + "^ +-: \\(0\\):Object:\\(?:.+\\)$" nil 1 nil 0) (gcov-never-called-line - "^ +\\(#####\\): +\\([0-9]+\\):.+$" nil 2 nil 2 nil + "^ +\\(#####\\): +\\([0-9]+\\):.+$" nil 2 nil 2 nil (1 compilation-error-face)) (gcov-called-line "^ +[-0-9]+: +\\([1-9]\\|[0-9]\\{2,\\}\\):.*$" nil 1 nil 0)