From 50df05be573031d0aa8da44eff4f942c425c75d2 Mon Sep 17 00:00:00 2001 From: Nick Roberts Date: Mon, 31 Mar 2003 21:23:45 +0000 Subject: [PATCH] (gdb-inferior-io-mode): Remove Unix pathname for cat so that it can run on NT also. --- lisp/gdb-ui.el | 12 +++--------- 1 file changed, 3 insertions(+), 9 deletions(-) diff --git a/lisp/gdb-ui.el b/lisp/gdb-ui.el index ad220ff8ec8..325b90bc44c 100644 --- a/lisp/gdb-ui.el +++ b/lisp/gdb-ui.el @@ -373,7 +373,7 @@ The key should be one of the cars in `gdb-buffer-rules-assoc'." ;; 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 @@ output from a previous command if that happens to be in effect." (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 @@ output from the current command if that happens to be appropriate." (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 @@ the source buffer." ;;;; 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 -- 2.39.2