Skip to content
Browse files

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.
  • Loading branch information...
1 parent a6a5408 commit 50c75e98ca421c8f494b3fc2d0b759d9864749aa @jdtsmith committed
Showing with 10 additions and 7 deletions.
  1. +10 −7 idlw-shell.el
17 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."

0 comments on commit 50c75e9

Please sign in to comment.
Something went wrong with that request. Please try again.