# HG changeset patch
# User Nick Roberts <nickrob@snap.net.nz>
# Date 1108585396 0
# Node ID 106946a8423d9a27c96282e26746381d18c6bf76
# Parent  f727e03680563c703c8c9e35da40c9e1333d7c18
(gdb-set-gud-minor-mode-existing-buffers)
(gdb-find-file-hook): Add server prefix.

diff -r f727e0368056 -r 106946a8423d lisp/progmodes/gdb-ui.el
--- a/lisp/progmodes/gdb-ui.el	Wed Feb 16 20:22:38 2005 +0000
+++ b/lisp/progmodes/gdb-ui.el	Wed Feb 16 20:23:16 2005 +0000
@@ -219,7 +219,8 @@
       (if file
 	(progn
 	  (gdb-enqueue-input
-	   (list (concat "list " (file-name-nondirectory file) ":1\n")
+	   (list (concat gdb-server-prefix "list "
+			 (file-name-nondirectory file) ":1\n")
 		 `(lambda () (gdb-set-gud-minor-mode ,buffer)))))))))
 
 (defun gdb-ann3 ()
@@ -2125,7 +2126,8 @@
 	     (eq gud-minor-mode 'gdba)))
       (condition-case nil
 	(gdb-enqueue-input
-	 (list (concat "list " (file-name-nondirectory buffer-file-name)
+	 (list (concat gdb-server-prefix "list "
+		       (file-name-nondirectory buffer-file-name)
 		       ":1\n")
 	       `(lambda () (gdb-set-gud-minor-mode ,(current-buffer)))))
 	(error (setq gdb-find-file-unhook t)))))