From: Richard M. Stallman <rms@gnu.org>
Date: Fri, 21 Oct 1994 19:27:26 +0000 (+0000)
Subject: (dbx): Delete call to gud-switch-to-buffer.
X-Git-Tag: emacs-19.34~6218
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=9fe320f1e3b8a6fa542ad5433734b4ab462944d3;p=emacs.git

(dbx): Delete call to gud-switch-to-buffer.
(gud-sdb-marker-filter): Handle SVR4 clumped lines.
---

diff --git a/lisp/gud.el b/lisp/gud.el
index c43f6e2d4ab..ed86d0fc655 100644
--- a/lisp/gud.el
+++ b/lisp/gud.el
@@ -362,6 +362,16 @@ available with older versions of GDB."
 	   (substring string (match-beginning 2) (match-end 2))
 	   (string-to-int 
 	    (substring string (match-beginning 3) (match-end 3))))))
+   ;; System V Release 4.0 quite often clumps two lines together
+   ((string-match "^\\(BREAKPOINT\\|STEPPED\\) process [0-9]+ function [^ ]+ in \\(.+\\)\n\\([0-9]+\\):" 
+		  string)
+    (setq gud-sdb-lastfile
+	  (substring string (match-beginning 2) (match-end 2)))
+    (setq gud-last-frame
+	  (cons
+	   gud-sdb-lastfile
+	   (string-to-int 
+	    (substring string (match-beginning 3) (match-end 3))))))
    ;; System V Release 4.0 
    ((string-match "^\\(BREAKPOINT\\|STEPPED\\) process [0-9]+ function [^ ]+ in \\(.+\\)\n"
 		       string)
@@ -594,8 +604,6 @@ and source-file directory for your debugger."
 			       nil nil
 			       '(gud-dbx-history . 1))))
 
-  (gud-switch-to-buffer command-line)
-
   (cond
    (gud-mips-p
     (gud-common-init command-line 'gud-mipsdbx-massage-args