From cf7238adf9f3bcddb60d422c470b58605a1b8bad Mon Sep 17 00:00:00 2001 From: Nick Roberts Date: Wed, 16 Jul 2008 23:02:52 +0000 Subject: [PATCH] (gdb-create-define-alist): Don't create a list of #defines for remote files. (gdb-source-info): Only show main if it has been found. --- lisp/progmodes/gdb-ui.el | 15 +++++++++------ 1 file changed, 9 insertions(+), 6 deletions(-) diff --git a/lisp/progmodes/gdb-ui.el b/lisp/progmodes/gdb-ui.el index 1b9ed9ad7e0..d704e6a5b06 100644 --- a/lisp/progmodes/gdb-ui.el +++ b/lisp/progmodes/gdb-ui.el @@ -470,11 +470,14 @@ otherwise do not." (output (with-output-to-string (with-current-buffer standard-output - (and file (file-exists-p file) - (call-process shell-file-name file - (list t nil) nil "-c" - (concat gdb-cpp-define-alist-program " " - gdb-cpp-define-alist-flags)))))) + (and file + (file-exists-p file) + ;; call-process doesn't work with remote file names. + (not (file-remote-p default-directory)) + (call-process shell-file-name file + (list t nil) nil "-c" + (concat gdb-cpp-define-alist-program " " + gdb-cpp-define-alist-flags)))))) (define-list (split-string output "\n" t)) (name)) (setq gdb-define-alist nil) (dolist (define define-list) @@ -3273,7 +3276,7 @@ buffers." (if gdb-many-windows (gdb-setup-windows) (gdb-get-buffer-create 'gdb-breakpoints-buffer) - (if gdb-show-main + (if (and gdb-show-main gdb-main-file) (let ((pop-up-windows t)) (display-buffer (gud-find-file gdb-main-file))))) (setq gdb-ready t)) -- 2.39.2