[Emacs-diffs] Changes to emacs/lisp/gdb-ui.el

[Kim F. Storm]

Index: emacs/lisp/gdb-ui.el
diff -c emacs/lisp/gdb-ui.el:1.47 emacs/lisp/gdb-ui.el:1.48
*** emacs/lisp/gdb-ui.el:1.47   Tue Oct 21 18:38:59 2003
--- emacs/lisp/gdb-ui.el        Wed Nov 19 18:40:17 2003
***************
*** 589,595 ****
  ;; any newlines.
  ;;
  
! (defcustom gud-gdba-command-name "~/gdb/gdb/gdb -annotate=3"
    "Default command to execute an executable under the GDB-UI debugger."
    :type 'string
    :group 'gud)
--- 589,595 ----
  ;; any newlines.
  ;;
  
! (defcustom gud-gdba-command-name "gdb -annotate=3"
    "Default command to execute an executable under the GDB-UI debugger."
    :type 'string
    :group 'gud)
***************
*** 933,964 ****
  \"  c red\",
  \"+ c None\",
  /* pixels */
  \"++      ++\",
  \"+        +\",
  \"          \",
  \"          \",
  \"          \",
  \"          \",
- \"          \",
- \"          \",
  \"+        +\",
  \"++      ++\",
  };"
    "XPM data used for breakpoint icon.")
  
  (defconst breakpoint-enabled-pbm-data
  "P1
  10 10\",
  0 0 0 1 1 1 1 1 1 0 0 0
  0 0 1 1 1 1 1 1 1 1 0 0
  0 1 1 1 1 1 1 1 1 1 1 0
  0 1 1 1 1 1 1 1 1 1 1 0
  0 1 1 1 1 1 1 1 1 1 1 0
  0 1 1 1 1 1 1 1 1 1 1 0
- 0 1 1 1 1 1 1 1 1 1 1 0
- 0 1 1 1 1 1 1 1 1 1 1 0
  0 0 1 1 1 1 1 1 1 1 0 0
! 0 0 0 1 1 1 1 1 1 0 0 0"
    "PBM data used for enabled breakpoint icon.")
  
  (defconst breakpoint-disabled-pbm-data
--- 933,964 ----
  \"  c red\",
  \"+ c None\",
  /* pixels */
+ \"+++    +++\",
  \"++      ++\",
  \"+        +\",
  \"          \",
  \"          \",
  \"          \",
  \"          \",
  \"+        +\",
  \"++      ++\",
+ \"+++    +++\",
  };"
    "XPM data used for breakpoint icon.")
  
  (defconst breakpoint-enabled-pbm-data
  "P1
  10 10\",
+ 0 0 0 0 1 1 1 1 0 0 0 0
  0 0 0 1 1 1 1 1 1 0 0 0
  0 0 1 1 1 1 1 1 1 1 0 0
  0 1 1 1 1 1 1 1 1 1 1 0
  0 1 1 1 1 1 1 1 1 1 1 0
  0 1 1 1 1 1 1 1 1 1 1 0
  0 1 1 1 1 1 1 1 1 1 1 0
  0 0 1 1 1 1 1 1 1 1 0 0
! 0 0 0 1 1 1 1 1 1 0 0 0
! 0 0 0 0 1 1 1 1 0 0 0 0"
    "PBM data used for enabled breakpoint icon.")
  
  (defconst breakpoint-disabled-pbm-data
***************
*** 977,989 ****
    "PBM data used for disabled breakpoint icon.")
  
  (defvar breakpoint-enabled-icon
!   (find-image `((:type xpm :data ,breakpoint-xpm-data)
!               (:type pbm :data ,breakpoint-enabled-pbm-data)))
    "Icon for enabled breakpoint in display margin")
  
  (defvar breakpoint-disabled-icon
!   (find-image `((:type xpm :data ,breakpoint-xpm-data :conversion disabled)
!               (:type pbm :data ,breakpoint-disabled-pbm-data)))
    "Icon for disabled breakpoint in display margin")
  
  ;;-put breakpoint icons in relevant margins (even those set in the GUD buffer)
--- 977,989 ----
    "PBM data used for disabled breakpoint icon.")
  
  (defvar breakpoint-enabled-icon
!   (find-image `((:type xpm :data ,breakpoint-xpm-data :ascent 100)
!               (:type pbm :data ,breakpoint-enabled-pbm-data :ascent 100)))
    "Icon for enabled breakpoint in display margin")
  
  (defvar breakpoint-disabled-icon
!   (find-image `((:type xpm :data ,breakpoint-xpm-data :conversion disabled 
:ascent 100)
!               (:type pbm :data ,breakpoint-disabled-pbm-data :ascent 100)))
    "Icon for disabled breakpoint in display margin")
  
  ;;-put breakpoint icons in relevant margins (even those set in the GUD buffer)