[Emacs-diffs] Changes to emacs/lisp/progmodes/idlw-shell.el

[Miles Bader]

Index: emacs/lisp/progmodes/idlw-shell.el
diff -c emacs/lisp/progmodes/idlw-shell.el:3.37 
emacs/lisp/progmodes/idlw-shell.el:3.38
*** emacs/lisp/progmodes/idlw-shell.el:3.37     Tue Jun 14 15:24:13 2005
--- emacs/lisp/progmodes/idlw-shell.el  Tue Jun 14 23:20:55 2005
***************
*** 510,549 ****
  (defvar idlwave-shell-use-breakpoint-glyph t
    "Obsolete variable.  See `idlwave-shell-mark-breakpoints.")
  
! (defcustom idlwave-shell-breakpoint-face 'idlwave-shell-bp-face
    "*The face for breakpoint lines in the source code.
  Allows you to choose the font, color and other properties for
  lines which have a breakpoint.  See also `idlwave-shell-mark-breakpoints'."
    :group 'idlwave-shell-highlighting-and-faces
    :type 'symbol)
  
! (if idlwave-shell-have-new-custom
!     ;; We have the new customize - use it to define a customizable face
!     (defface idlwave-shell-bp-face
!       '((((class color)) (:foreground "Black" :background "Pink"))
!       (t (:underline t)))
!       "Face for highlighting lines with breakpoints."
!       :group 'idlwave-shell-highlighting-and-faces)
!   ;; Just copy the underline face to be on the safe side.
!   (copy-face 'underline 'idlwave-shell-bp-face))
  
  (defcustom idlwave-shell-disabled-breakpoint-face
!   'idlwave-shell-disabled-bp-face
    "*The face for disabled breakpoint lines in the source code.
  Allows you to choose the font, color and other properties for
  lines which have a breakpoint.  See also `idlwave-shell-mark-breakpoints'."
    :group 'idlwave-shell-highlighting-and-faces
    :type 'symbol)
  
! (if idlwave-shell-have-new-custom
!     ;; We have the new customize - use it to define a customizable face
!     (defface idlwave-shell-disabled-bp-face
!       '((((class color)) (:foreground "Black" :background "gray"))
!       (t (:underline t)))
!       "Face for highlighting lines with breakpoints."
!       :group 'idlwave-shell-highlighting-and-faces)
!   ;; Just copy the underline face to be on the safe side.
!   (copy-face 'underline 'idlwave-shell-disabled-bp-face))
  
  
  (defcustom idlwave-shell-expression-face 'secondary-selection
--- 510,553 ----
  (defvar idlwave-shell-use-breakpoint-glyph t
    "Obsolete variable.  See `idlwave-shell-mark-breakpoints.")
  
! (defcustom idlwave-shell-breakpoint-face 'idlwave-shell-bp
    "*The face for breakpoint lines in the source code.
  Allows you to choose the font, color and other properties for
  lines which have a breakpoint.  See also `idlwave-shell-mark-breakpoints'."
    :group 'idlwave-shell-highlighting-and-faces
    :type 'symbol)
  
! (if (not idlwave-shell-have-new-custom)
!     ;; Just copy the underline face to be on the safe side.
!     (copy-face 'underline 'idlwave-shell-bp)
!   ;; We have the new customize - use it to define a customizable face
!   (defface idlwave-shell-bp
!     '((((class color)) (:foreground "Black" :background "Pink"))
!       (t (:underline t)))
!     "Face for highlighting lines with breakpoints."
!     :group 'idlwave-shell-highlighting-and-faces)
!   ;; backward-compatibility alias
!   (put 'idlwave-shell-bp-face 'face-alias 'idlwave-shell-bp))
  
  (defcustom idlwave-shell-disabled-breakpoint-face
!   'idlwave-shell-disabled-bp
    "*The face for disabled breakpoint lines in the source code.
  Allows you to choose the font, color and other properties for
  lines which have a breakpoint.  See also `idlwave-shell-mark-breakpoints'."
    :group 'idlwave-shell-highlighting-and-faces
    :type 'symbol)
  
! (if (not idlwave-shell-have-new-custom)
!     ;; Just copy the underline face to be on the safe side.
!     (copy-face 'underline 'idlwave-shell-disabled-bp)
!   ;; We have the new customize - use it to define a customizable face
!   (defface idlwave-shell-disabled-bp
!     '((((class color)) (:foreground "Black" :background "gray"))
!       (t (:underline t)))
!     "Face for highlighting lines with breakpoints."
!     :group 'idlwave-shell-highlighting-and-faces)
!   ;; backward-compatibility alias
!   (put 'idlwave-shell-disabled-bp-face 'face-alias 
'idlwave-shell-disabled-bp))
  
  
  (defcustom idlwave-shell-expression-face 'secondary-selection