From: Nick Roberts <nickrob@snap.net.nz>
Date: Wed, 16 Feb 2005 20:23:16 +0000 (+0000)
Subject: (gdb-set-gud-minor-mode-existing-buffers)
X-Git-Tag: ttn-vms-21-2-B4~2230
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=262ba701c1adf2f28e862e642009fb4787699ea2;p=emacs.git

(gdb-set-gud-minor-mode-existing-buffers)
(gdb-find-file-hook): Add server prefix.
---

diff --git a/lisp/progmodes/gdb-ui.el b/lisp/progmodes/gdb-ui.el
index 1e5f622ea30..4eeb8fa1886 100644
--- a/lisp/progmodes/gdb-ui.el
+++ b/lisp/progmodes/gdb-ui.el
@@ -219,7 +219,8 @@ detailed description of this mode.
       (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 @@ Add directory to search path for source files using the GDB command, dir."))
 	     (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)))))