comparison lisp/progmodes/compile.el @ 64739:acd7896a76ba

(compilation-mode-font-lock-keywords): Use `compilation-text-face', `compilation-info-text-face' and `compilation-error-text-face' instead of `font-lock-keyword-face'. (compilation-error): New face. (compilation-error-file-name): Inherit from `compilation-error' instead of `font-lock-warning-face'. (compilation-warning-file-name): Inherit from `compilation-warning' instead of `font-lock-warning-face'. (compilation-info, compilation-error-file-name) (compilation-warning-file-name, compilation-info-file-name) (compilation-line-number, compilation-column-number): Doc fix. (compilation-error-text-face, compilation-warning-text-face) (compilation-info-text-face): New face variables. (compilation-line-face, compilation-column-face) (compilation-enter-directory-face) (compilation-leave-directory-face): Doc fix. (compilation-text-face): New function.

64738:b8929a75abe8

(defvar compilation-mode-font-lock-keywords
   '(;; configure output lines.
     ("^[Cc]hecking \\(?:[Ff]or \\|[Ii]f \\|[Ww]hether \\(?:to \\)?\\)?\\(.+\\)\\.\\.\\. *\\(?:(cached) *\\)?\\(\\(yes\\(?: .+\\)?\\)\\|no\\|\\(.*\\)\\)$"
      (1 font-lock-variable-name-face)
      (2 font-lock-keyword-face))
     ;; Command output lines.  Recognize `make[n]:' lines too.
     ("^\\([[:alnum:]_/.+-]+\\)\\(\\[\\([0-9]+\\)\\]\\)?[ \t]*:"
      (1 font-lock-function-name-face) (3 compilation-line-face nil t))
     (" --?o\\(?:utfile\\|utput\\)?[= ]?\\(\\S +\\)" . 1)
     ("^Compilation finished" . font-lock-keyword-face)
     ("^Compilation exited abnormally" . font-lock-keyword-face))
   "Additional things to highlight in Compilation mode.
This gets tacked on the end of the generated expressions.")

(defvar compilation-highlight-regexp t
  "Regexp matching part of visited source lines to highlight temporarily.

starting the compilation process.")

;; History of compile commands.
(defvar compile-history nil)

(defface compilation-warning
  '((((class color) (min-colors 16)) (:foreground "Orange" :weight bold))
    (((class color)) (:foreground "cyan" :weight bold))
    (t (:weight bold)))
  "Face used to highlight compiler warnings."

     (:foreground "Green1" :weight bold))
    (((class color) (min-colors 16) (background dark))
     (:foreground "Green" :weight bold))
    (((class color)) (:foreground "green" :weight bold))
    (t (:weight bold)))
  "Face used to highlight compiler warnings."
  :group 'font-lock-highlighting-faces
  :version "22.1")
;; backward-compatibility alias
(put 'compilation-info-face 'face-alias 'compilation-info)

(defface compilation-error-file-name
  '((default :inherit font-lock-warning-face)
    (((supports :underline t)) :underline t))
  "Face for displaying file names in compilation errors."
  :group 'font-lock-highlighting-faces
  :version "22.1")

(defface compilation-warning-file-name
  '((default :inherit font-lock-warning-face)
    (((supports :underline t)) :underline t))
  "Face for displaying file names in compilation errors."
  :group 'font-lock-highlighting-faces
  :version "22.1")

(defface compilation-info-file-name
  '((default :inherit compilation-info)
    (((supports :underline t)) :underline t))
  "Face for displaying file names in compilation errors."
  :group 'font-lock-highlighting-faces
  :version "22.1")

(defface compilation-line-number
  '((default :inherit font-lock-variable-name-face)
    (((supports :underline t)) :underline t))
  "Face for displaying file names in compilation errors."
  :group 'font-lock-highlighting-faces
  :version "22.1")

(defface compilation-column-number
  '((default :inherit font-lock-type-face)
    (((supports :underline t)) :underline t))
  "Face for displaying file names in compilation errors."
  :group 'font-lock-highlighting-faces
  :version "22.1")

(defvar compilation-message-face nil
  "Face name to use for whole messages.

`compilation-column-face' get prepended to this, when applicable.")

(defvar compilation-error-face 'compilation-error-file-name
  "Face name to use for file name in error messages.")

(defvar compilation-warning-face 'compilation-warning-file-name
  "Face name to use for file name in warning messages.")

(defvar compilation-info-face 'compilation-info-file-name
  "Face name to use for file name in informational messages.")

(defvar compilation-line-face 'compilation-line-number
  "Face name to use for line number in message.")

(defvar compilation-column-face 'compilation-column-number
  "Face name to use for column number in message.")

;; same faces as dired uses
(defvar compilation-enter-directory-face 'font-lock-function-name-face
  "Face name to use for column number in message.")

(defvar compilation-leave-directory-face 'font-lock-type-face
  "Face name to use for column number in message.")



;; Used for compatibility with the old compile.el.
(defvaralias 'compilation-last-buffer 'next-error-last-buffer)

(defun compilation-face (type)
  (or (and (car type) (match-end (car type)) compilation-warning-face)
      (and (cdr type) (match-end (cdr type)) compilation-info-face)
      compilation-error-face))

;; Internal function for calculating the text properties of a directory
;; change message.  The directory property is important, because it is
;; the stack of nested enter-messages.  Relative filenames on the following
;; lines are relative to the top of the stack.

64739:acd7896a76ba

(defvar compilation-mode-font-lock-keywords
   '(;; configure output lines.
     ("^[Cc]hecking \\(?:[Ff]or \\|[Ii]f \\|[Ww]hether \\(?:to \\)?\\)?\\(.+\\)\\.\\.\\. *\\(?:(cached) *\\)?\\(\\(yes\\(?: .+\\)?\\)\\|no\\|\\(.*\\)\\)$"
      (1 font-lock-variable-name-face)
      (2 (compilation-text-face '(4 . 3))))
     ;; Command output lines.  Recognize `make[n]:' lines too.
     ("^\\([[:alnum:]_/.+-]+\\)\\(\\[\\([0-9]+\\)\\]\\)?[ \t]*:"
      (1 font-lock-function-name-face) (3 compilation-line-face nil t))
     (" --?o\\(?:utfile\\|utput\\)?[= ]?\\(\\S +\\)" . 1)
     ("^Compilation finished" . compilation-info-text-face)
     ("^Compilation exited abnormally" . compilation-error-text-face))
   "Additional things to highlight in Compilation mode.
This gets tacked on the end of the generated expressions.")

(defvar compilation-highlight-regexp t
  "Regexp matching part of visited source lines to highlight temporarily.

starting the compilation process.")

;; History of compile commands.
(defvar compile-history nil)

(defface compilation-error
  '((t :inherit font-lock-warning-face))
  "Face used to highlight compiler errors."
  :group 'font-lock-highlighting-faces
  :version "22.1")

(defface compilation-warning
  '((((class color) (min-colors 16)) (:foreground "Orange" :weight bold))
    (((class color)) (:foreground "cyan" :weight bold))
    (t (:weight bold)))
  "Face used to highlight compiler warnings."

     (:foreground "Green1" :weight bold))
    (((class color) (min-colors 16) (background dark))
     (:foreground "Green" :weight bold))
    (((class color)) (:foreground "green" :weight bold))
    (t (:weight bold)))
  "Face used to highlight compiler information."
  :group 'font-lock-highlighting-faces
  :version "22.1")
;; backward-compatibility alias
(put 'compilation-info-face 'face-alias 'compilation-info)

(defface compilation-error-file-name
  '((default :inherit compilation-error)
    (((supports :underline t)) :underline t))
  "Face for displaying file names in error messages."
  :group 'font-lock-highlighting-faces
  :version "22.1")

(defface compilation-warning-file-name
  '((default :inherit compilation-warning)
    (((supports :underline t)) :underline t))
  "Face for displaying file names in warning messages."
  :group 'font-lock-highlighting-faces
  :version "22.1")

(defface compilation-info-file-name
  '((default :inherit compilation-info)
    (((supports :underline t)) :underline t))
  "Face for displaying file names in informational messages."
  :group 'font-lock-highlighting-faces
  :version "22.1")

(defface compilation-line-number
  '((default :inherit font-lock-variable-name-face)
    (((supports :underline t)) :underline t))
  "Face for displaying line numbers in compiler messages."
  :group 'font-lock-highlighting-faces
  :version "22.1")

(defface compilation-column-number
  '((default :inherit font-lock-type-face)
    (((supports :underline t)) :underline t))
  "Face for displaying column numbers in compiler messages."
  :group 'font-lock-highlighting-faces
  :version "22.1")

(defvar compilation-message-face nil
  "Face name to use for whole messages.

`compilation-column-face' get prepended to this, when applicable.")

(defvar compilation-error-face 'compilation-error-file-name
  "Face name to use for file name in error messages.")

(defvar compilation-error-text-face 'compilation-error
  "Face name to use for text of error messages.")

(defvar compilation-warning-face 'compilation-warning-file-name
  "Face name to use for file name in warning messages.")

(defvar compilation-warning-text-face 'compilation-warning
  "Face name to use for text of warning messages.")

(defvar compilation-info-face 'compilation-info-file-name
  "Face name to use for file name in informational messages.")

(defvar compilation-info-text-face 'compilation-info
  "Face name to use for text of informational messages.")

(defvar compilation-line-face 'compilation-line-number
  "Face name to use for line numbers in compiler message.")

(defvar compilation-column-face 'compilation-column-number
  "Face name to use for column numbers in compiler messages.")

;; same faces as dired uses
(defvar compilation-enter-directory-face 'font-lock-function-name-face
  "Face name to use for entering directory messages.")

(defvar compilation-leave-directory-face 'font-lock-type-face
  "Face name to use for leaving directory messages.")



;; Used for compatibility with the old compile.el.
(defvaralias 'compilation-last-buffer 'next-error-last-buffer)

(defun compilation-face (type)
  (or (and (car type) (match-end (car type)) compilation-warning-face)
      (and (cdr type) (match-end (cdr type)) compilation-info-face)
      compilation-error-face))

(defun compilation-text-face (type)
  (or (and (car type) (match-end (car type)) compilation-warning-text-face)
      (and (cdr type) (match-end (cdr type)) compilation-info-text-face)
      compilation-error-text-face))

;; Internal function for calculating the text properties of a directory
;; change message.  The directory property is important, because it is
;; the stack of nested enter-messages.  Relative filenames on the following
;; lines are relative to the top of the stack.