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

[Miles Bader]

Index: emacs/lisp/gdb-ui.el
diff -c emacs/lisp/gdb-ui.el:1.25 emacs/lisp/gdb-ui.el:1.26
*** emacs/lisp/gdb-ui.el:1.25   Tue Feb  4 06:21:47 2003
--- emacs/lisp/gdb-ui.el        Mon Mar 31 16:23:45 2003
***************
*** 373,379 ****
    ;; a dummy one.
    (make-comint-in-buffer
     (substring (buffer-name) 1 (- (length (buffer-name)) 1))
!    (current-buffer) "/bin/cat")
    (setq comint-input-sender 'gdb-inferior-io-sender))
  
  (defun gdb-inferior-io-sender (proc string)
--- 373,379 ----
    ;; a dummy one.
    (make-comint-in-buffer
     (substring (buffer-name) 1 (- (length (buffer-name)) 1))
!    (current-buffer) "cat")
    (setq comint-input-sender 'gdb-inferior-io-sender))
  
  (defun gdb-inferior-io-sender (proc string)
***************
*** 587,593 ****
          (funcall handler))))
       (t
        (gdb-set-output-sink 'user)
!       (error "Output sink phase error 1")))))
  
  (defun gdb-prompt (ignored)
    "An annotation handler for `prompt'.
--- 587,593 ----
          (funcall handler))))
       (t
        (gdb-set-output-sink 'user)
!       (error "Phase error in gdb-pre-prompt (got %s)" sink)))))
  
  (defun gdb-prompt (ignored)
    "An annotation handler for `prompt'.
***************
*** 673,679 ****
        (gdb-set-output-sink 'emacs))
       (t
        (gdb-set-output-sink 'user)
!       (error "Output sink phase error 3")))))
  
  ;; If we get an error whilst evaluating one of the expressions
  ;; we won't get the display-end annotation. Set the sink back to
--- 673,679 ----
        (gdb-set-output-sink 'emacs))
       (t
        (gdb-set-output-sink 'user)
!       (error "Phase error in gdb-post-prompt (got %s)" sink)))))
  
  ;; If we get an error whilst evaluating one of the expressions
  ;; we won't get the display-end annotation. Set the sink back to
***************
*** 1778,1789 ****
  
  
  ;;;; Window management
- 
- ;;; FIXME: This should only return true for buffers in the current gdb-proc
- (defun gdb-protected-buffer-p (buffer)
-   "Is BUFFER a buffer which we want to leave displayed?"
-   (with-current-buffer buffer
-     (or gdb-buffer-type overlay-arrow-position)))
  
  ;;; The way we abuse the dedicated-p flag is pretty gross, but seems
  ;;; to do the right thing.  Seeing as there is no way for Lisp code to
--- 1778,1783 ----