[elpa] externals/realgud 2eb9519 063/140: small changes

[Rocky Bernstein]

branch: externals/realgud
commit 2eb9519df850ca6ff61f8576bc9d0bc3176c87b4
Author: rocky <address@hidden>
Commit: rocky <address@hidden>

    small changes
    
    debugger-(not)running now has realgud- namespace prefix
    inherit stopped arrow color from debugger-running
---
 realgud/common/buffer/command.el | 26 +++-----------------------
 realgud/common/fringe.el         | 29 ++++++++++++++++++++++-------
 realgud/common/track-mode.el     |  2 +-
 3 files changed, 26 insertions(+), 31 deletions(-)

diff --git a/realgud/common/buffer/command.el b/realgud/common/buffer/command.el
index 8e0e66c..89659b5 100644
--- a/realgud/common/buffer/command.el
+++ b/realgud/common/buffer/command.el
@@ -1,4 +1,4 @@
-;; Copyright (C) 2015-2017 Free Software Foundation, Inc
+;; Copyright (C) 2015-2018 Free Software Foundation, Inc
 ;; Author: Rocky Bernstein <address@hidden>
 
 ;; This program is free software; you can redistribute it and/or modify
@@ -33,26 +33,6 @@
   )
 (require 'cl-lib)
 
-(defface debugger-running
-  '((((class color) (min-colors 16) (background light))
-     (:foreground "Green4" :weight bold))
-    (((class color) (min-colors 88) (background dark))
-     (: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 debugger run information."
-  :group 'realgud
-  :version "24.3")
-
-(defface debugger-not-running
-  '((t :inherit font-lock-warning-face))
-  "Face used when debugger or process is not running."
-  :group 'realgud
-  :version "24.3")
-
-
 (cl-defstruct realgud-cmdbuf-info
   "The debugger object/structure specific to a process buffer."
   debugger-name        ;; Name of debugger
@@ -468,9 +448,9 @@ command-process buffer has stored."
                    (list (propertize
                           (format ":%s%s"
                                   (process-status cmd-process) debug-status)
-                          'face 'debugger-running))
+                          'face 'realgud-debugger-running))
                  (list (propertize ":not running" 'face
-                       'debugger-not-running))
+                       'realgud-debugger-not-running))
                  ))
          (setq mode-line-process status)
          ;; Force mode line redisplay soon.
diff --git a/realgud/common/fringe.el b/realgud/common/fringe.el
index f974e28..52a68f3 100644
--- a/realgud/common/fringe.el
+++ b/realgud/common/fringe.el
@@ -1,4 +1,4 @@
-;; Copyright (C) 2010, 2012, 2014-2016 Free Software Foundation, Inc
+;; Copyright (C) 2010, 2012, 2014-2016, 2018 Free Software Foundation, Inc
 
 ;; Author: Rocky Bernstein <address@hidden>
 
@@ -27,15 +27,30 @@
     (define-fringe-bitmap 'hollow-right-triangle
       "\xe0\x90\x88\x84\x84\x88\x90\xe0"))
 
+(defface realgud-debugger-running
+  '((((class color) (min-colors 16) (background light))
+     (:foreground "Green4" :weight bold))
+    (((class color) (min-colors 88) (background dark))
+     (: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 debugger run information."
+  :group 'realgud
+  :version "24.3")
+
+(defface realgud-debugger-not-running
+  '((t :inherit font-lock-warning-face))
+  "Face used when debugger or process is not running."
+  :group 'realgud
+  :version "24.3")
+
+
 ;; FIXME: Figure out how to do this as a macro.
 
 (defface realgud-overlay-arrow1
-  '((((class color) (min-colors 16) (background light)) :foreground 
"ForestGreen" :weight bold)
-    (((class color) (min-colors 16) (background dark))  :foreground 
"PaleGreen" :weight bold)
-    (((class color) (min-colors 8)) :foreground "green")
-    (((class grayscale) (background light)) :foreground "Black" :weight bold)
-    (((class grayscale) (background dark))  :foreground "White" :weight bold)
-    (t :weight bold))
+  '((t :inherit realgud-debugger-running))
     "Realgud fringe face for current position indicator."
     :group 'realgud)
 
diff --git a/realgud/common/track-mode.el b/realgud/common/track-mode.el
index bb30e5b..4ca2c63 100644
--- a/realgud/common/track-mode.el
+++ b/realgud/common/track-mode.el
@@ -168,7 +168,7 @@ of this mode."
             (status (if cmd-process
                         (list (propertize (format ":%s"
                                                   (process-status cmd-process))
-                           'face 'debugger-running))
+                           'face 'realgud-debugger-running))
                       ""))
             )
        (setq mode-line-process status)