# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 782767646 0
# Node ID 208a783fe72a92b936a09ffd6b81d6d83787f5e5
# Parent  bfc3782dd76919c4acf1fda4b11b5520e797a09f
(dbx): Delete call to gud-switch-to-buffer.
(gud-sdb-marker-filter): Handle SVR4 clumped lines.

diff -r bfc3782dd769 -r 208a783fe72a lisp/gud.el
--- a/lisp/gud.el	Fri Oct 21 18:43:22 1994 +0000
+++ b/lisp/gud.el	Fri Oct 21 19:27:26 1994 +0000
@@ -362,6 +362,16 @@
 	   (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 @@
 			       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