code.delx.au - gnu-emacs-elpa/blob - packages/realgud/realgud/common/init.el

   1 ;;; Copyright (C) 2010, 2015 Rocky Bernstein <rocky@gnu.org>
   2 (require 'load-relative)
   3
   4 (defface realgud-line-number
   5   '((t :inherit font-lock-variable-name-face))
   6   "Face for displaying line numbers in."
   7   :group 'realgud
   8   :version "23.4")
   9
  10 (defvar realgud-line-number-face 'realgud-line-number
  11   "Face name to use for line numbers.")
  12
  13 (defface realgud-file-name
  14   '((t :inherit font-lock-preprocessor-face))
  15   "Face for displaying file names."
  16   :group 'realgud
  17   :version "23.4")
  18
  19 (defface realgud-backtrace-number
  20   '((t
  21      :foreground "black"
  22      :weight bold))
  23   "Fringe face for current position."
  24   :group 'realgud)
  25
  26 (defvar realgud-backtrace-number-face 'realgud-backtrace-number
  27   "Face name to use for backtrace numbers.")
  28
  29 (defvar realgud-file-name-face 'realgud-file-name
  30   "Face name to use for file names.")
  31
  32 (provide-me "realgud-")