branch: externals/idlwave
commit 50c75e98ca421c8f494b3fc2d0b759d9864749aa
Author: JD Smith <jdtsm...@gmail.com>
Commit: JD Smith <jdtsm...@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."
