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

[Juanma Barranquero]

Index: emacs/lisp/gdb-ui.el
diff -c emacs/lisp/gdb-ui.el:1.1 emacs/lisp/gdb-ui.el:1.2
*** emacs/lisp/gdb-ui.el:1.1    Wed Nov 13 20:53:27 2002
--- emacs/lisp/gdb-ui.el        Thu Nov 14 03:57:04 2002
***************
*** 29,35 ****
  
  ;;; Code:
  
! (require 'mygud)
  
  (defcustom gdb-many-windows t
    "If t, using gdba, start gdb with ancillary buffers visible.
--- 29,35 ----
  
  ;;; Code:
  
! (require 'gud)
  
  (defcustom gdb-many-windows t
    "If t, using gdba, start gdb with ancillary buffers visible.
***************
*** 81,87 ****
  
  Displayed expressions appear in separate frames. Arrays may be displayed
  as slices and visualised using the graph program from plotutils if installed.
!  
  If `gdb-many-windows' is set to nil then gdb starts with just two windows :
  the GUD and the source buffer.
  
--- 81,87 ----
  
  Displayed expressions appear in separate frames. Arrays may be displayed
  as slices and visualised using the graph program from plotutils if installed.
! 
  If `gdb-many-windows' is set to nil then gdb starts with just two windows :
  the GUD and the source buffer.
  
***************
*** 283,291 ****
  ;; representation) and buffers associated with those objects.
  ;;
  
! ;; 
  ;; gdb-instance objects
! ;; 
  
  (defun make-gdb-instance (proc)
    "Create a gdb instance object from a gdb process."
--- 283,291 ----
  ;; representation) and buffers associated with those objects.
  ;;
  
! ;;
  ;; gdb-instance objects
! ;;
  
  (defun make-gdb-instance (proc)
    "Create a gdb instance object from a gdb process."
***************
*** 1299,1305 ****
        (let ((annotation (substring burst
                                     (match-beginning 1)
                                     (match-end 1))))
!           
          ;; Stuff prior to the match is just ordinary output.
          ;; It is either concatenated to OUTPUT or directed
          ;; elsewhere.
--- 1299,1305 ----
        (let ((annotation (substring burst
                                     (match-beginning 1)
                                     (match-end 1))))
! 
          ;; Stuff prior to the match is just ordinary output.
          ;; It is either concatenated to OUTPUT or directed
          ;; elsewhere.
***************
*** 1311,1317 ****
  
          ;; Take that stuff off the burst.
          (setq burst (substring burst (match-end 0)))
!           
          ;; Parse the tag from the annotation, and maybe its arguments.
          (string-match "\\(\\S-*\\) ?\\(.*\\)" annotation)
          (let* ((annotation-type (substring annotation
--- 1311,1317 ----
  
          ;; Take that stuff off the burst.
          (setq burst (substring burst (match-end 0)))
! 
          ;; Parse the tag from the annotation, and maybe its arguments.
          (string-match "\\(\\S-*\\) ?\\(.*\\)" annotation)
          (let* ((annotation-type (substring annotation
***************
*** 1416,1422 ****
  ;; The idle input queue and the output phasing associated with
  ;; the instance variable `(gdb-instance-output-sink instance)' help
  ;; us to run commands behind the user's back.
! ;; 
  ;; Below is the code for specificly managing buffers of output from one
  ;; command.
  ;;
--- 1416,1422 ----
  ;; The idle input queue and the output phasing associated with
  ;; the instance variable `(gdb-instance-output-sink instance)' help
  ;; us to run commands behind the user's back.
! ;;
  ;; Below is the code for specificly managing buffers of output from one
  ;; command.
  ;;
***************
*** 1443,1449 ****
            instance
            (cons ',name
                  (gdb-instance-pending-triggers instance)))))))
!               
  (defmacro def-gdb-auto-update-handler (name trigger buf-key custom-defun)
    `(defun ,name ()
       (set-gdb-instance-pending-triggers
--- 1443,1449 ----
            instance
            (cons ',name
                  (gdb-instance-pending-triggers instance)))))))
! 
  (defmacro def-gdb-auto-update-handler (name trigger buf-key custom-defun)
    `(defun ,name ()
       (set-gdb-instance-pending-triggers
***************
*** 1480,1486 ****
  
  ;;
  ;; Breakpoint buffers
! ;; 
  ;; These display the output of `info breakpoints'.
  ;;
  
--- 1480,1486 ----
  
  ;;
  ;; Breakpoint buffers
! ;;
  ;; These display the output of `info breakpoints'.
  ;;
  
***************
*** 2103,2109 ****
          (setq answer (split-window largest new-size))
          (set-window-buffer answer buf)))
      answer))
!       
  (defun gdb-display-source-buffer (buffer)
    (set-window-buffer gdb-source-window buffer))
  
--- 2103,2109 ----
          (setq answer (split-window largest new-size))
          (set-window-buffer answer buf)))
      answer))
! 
  (defun gdb-display-source-buffer (buffer)
    (set-window-buffer gdb-source-window buffer))