diff options
author | Nick Roberts <nickrob@snap.net.nz> | 2005-02-16 20:23:16 +0000 |
---|---|---|
committer | Nick Roberts <nickrob@snap.net.nz> | 2005-02-16 20:23:16 +0000 |
commit | 262ba701c1adf2f28e862e642009fb4787699ea2 (patch) | |
tree | a40980b9c083f3d7ad9da0c94dcbef9e4d1c87ce /lisp/progmodes/gdb-ui.el | |
parent | fb05d8afc952a175d28179051231af081a5fc8c1 (diff) | |
download | emacs-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.el | 6 |
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))))) |