Mercurial > emacs
changeset 50378:6e0c9823bcc0
(gdb-inferior-io-mode): Remove Unix pathname for cat
so that it can run on NT also.
| author | Nick Roberts <nickrob@snap.net.nz> |
|---|---|
| date | Mon, 31 Mar 2003 21:23:45 +0000 |
| parents | 174f757a8504 |
| children | 25bbed3e1418 |
| files | lisp/gdb-ui.el |
| diffstat | 1 files changed, 3 insertions(+), 9 deletions(-) [+] |
line wrap: on
line diff
--- 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