[elpa] externals/idlwave 50c75e98ca 266/360: Use custom face for debug stop line

[ELPA Syncer]

branch: externals/idlwave
commit 50c75e98ca421c8f494b3fc2d0b759d9864749aa
Author: JD Smith <jdtsmith@gmail.com>
Commit: JD Smith <jdtsmith@gmail.com>

    Use custom face for debug stop line
    Don't copy the modeline, since it has variable width
    fonts e.g. in Aquamacs, causing flashing back and forth.
---
 idlw-shell.el | 17 ++++++++++-------
 1 file changed, 10 insertions(+), 7 deletions(-)

diff --git a/idlw-shell.el b/idlw-shell.el
index ea1f67ac9a..11b4e9b985 100644
--- a/idlw-shell.el
+++ b/idlw-shell.el
@@ -500,14 +500,17 @@ line where IDL is stopped.  See also 
`idlwave-shell-mark-stop-line'."
   :group 'idlwave-shell-highlighting-and-faces
   :type 'string)
 
+(defface idlwave-shell-electric-stop-line
+  `((((class color))
+     :background ,idlwave-shell-electric-stop-color
+     :box (:line-width -1 :style released-button))
+    (t
+     :box (:line-width -1 :style released-button)))
+  "The default face for `idlwave-shell-stop-line-overlay' when in
+electric debug mode.")
+
 (defcustom idlwave-shell-electric-stop-line-face
-  (prog1
-      (copy-face 'modeline 'idlwave-shell-electric-stop-line)
-    (set-face-background 'idlwave-shell-electric-stop-line
-                        idlwave-shell-electric-stop-color)
-    (condition-case nil
-       (set-face-foreground 'idlwave-shell-electric-stop-line nil)
-      (error nil)))
+  'idlwave-shell-electric-stop-line
   "*The face for `idlwave-shell-stop-line-overlay' when in electric debug mode.
 Allows you to choose the font, color and other properties for the line
 where IDL is stopped, when in Electric Debug Mode."