diff lisp/progmodes/gdb-ui.el @ 55330:df2107598877

(gdb-goto-breakpoint): Make buffer display file at breakpoint.

--- a/lisp/progmodes/gdb-ui.el	Mon May 03 00:33:21 2004 +0000
+++ b/lisp/progmodes/gdb-ui.el	Mon May 03 00:34:50 2004 +0000
@@ -1216,11 +1216,13 @@
       (let ((line (match-string 2))
 	    (file (match-string 1)))
 	(save-selected-window
-	  (gdb-display-buffer (find-file-noselect
-			       (if (file-exists-p file)
-				   file
-				 (expand-file-name file gdb-cdir))))
-	  (goto-line (string-to-number line))))))
+	  (let* ((buf (find-file-noselect (if (file-exists-p file)
+					      file
+					    (expand-file-name file gdb-cdir))))
+		 (window (gdb-display-buffer buf)))
+		 (with-current-buffer buf
+		   (goto-line (string-to-number line))
+		   (set-window-point window (point))))))))
 
 (defun gdb-mouse-goto-breakpoint (event)
   "Display the file in the source buffer at the selected breakpoint."