# HG changeset patch
# User Nick Roberts <nickrob@snap.net.nz>
# Date 1049145825 0
# Node ID 6e0c9823bcc01b9c550aa0118e26411f938bbb0c
# Parent  174f757a85043d104b5bd0def7de2ac5d567df1d
(gdb-inferior-io-mode): Remove Unix pathname for cat
so that it can run on NT also.

diff -r 174f757a8504 -r 6e0c9823bcc0 lisp/gdb-ui.el
--- a/lisp/gdb-ui.el	Mon Mar 31 21:16:55 2003 +0000
+++ b/lisp/gdb-ui.el	Mon Mar 31 21:23:45 2003 +0000
@@ -373,7 +373,7 @@
   ;; a dummy one.
   (make-comint-in-buffer
    (substring (buffer-name) 1 (- (length (buffer-name)) 1))
-   (current-buffer) "/bin/cat")
+   (current-buffer) "cat")
   (setq comint-input-sender 'gdb-inferior-io-sender))
 
 (defun gdb-inferior-io-sender (proc string)
@@ -587,7 +587,7 @@
 	  (funcall handler))))
      (t
       (gdb-set-output-sink 'user)
-      (error "Output sink phase error 1")))))
+      (error "Phase error in gdb-pre-prompt (got %s)" sink)))))
 
 (defun gdb-prompt (ignored)
   "An annotation handler for `prompt'.
@@ -673,7 +673,7 @@
       (gdb-set-output-sink 'emacs))
      (t
       (gdb-set-output-sink 'user)
-      (error "Output sink phase error 3")))))
+      (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
@@ -1779,12 +1779,6 @@
 
 ;;;; 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
 ;;; get at the use_time field of a window, I'm not sure there exists a