(gdb-set-gud-minor-mode-existing-buffers)

(gdb-find-file-hook): Add server prefix.

1 files changed, 4 insertions, 2 deletions

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)))))