summaryrefslogtreecommitdiff
path: root/lisp/progmodes/gdb-ui.el
diff options
context:
space:
mode:
authorNick Roberts <nickrob@snap.net.nz>2005-02-16 20:23:16 +0000
committerNick Roberts <nickrob@snap.net.nz>2005-02-16 20:23:16 +0000
commit262ba701c1adf2f28e862e642009fb4787699ea2 (patch)
treea40980b9c083f3d7ad9da0c94dcbef9e4d1c87ce /lisp/progmodes/gdb-ui.el
parentfb05d8afc952a175d28179051231af081a5fc8c1 (diff)
downloademacs-262ba701c1adf2f28e862e642009fb4787699ea2.tar.gz
emacs-262ba701c1adf2f28e862e642009fb4787699ea2.tar.bz2
emacs-262ba701c1adf2f28e862e642009fb4787699ea2.zip
(gdb-set-gud-minor-mode-existing-buffers)
(gdb-find-file-hook): Add server prefix.
Diffstat (limited to 'lisp/progmodes/gdb-ui.el')
-rw-r--r--lisp/progmodes/gdb-ui.el6
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)))))