(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 1e5f622ea304e7abe60d6d37b64af3784f447f0b..4eeb8fa18868ae7df64b814e71a423c8b75a4404 100644 (file)
--- 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)))))