Mercurial > emacs

changeset 96751:5e647deae824

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(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.
author Nick Roberts <nickrob@snap.net.nz>
date Wed, 16 Jul 2008 23:02:52 +0000
parents da03cfcc85a1
children 9697a5f0281d
files lisp/progmodes/gdb-ui.el
diffstat 1 files changed, 9 insertions(+), 6 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/progmodes/gdb-ui.el	Wed Jul 16 23:01:04 2008 +0000
+++ b/lisp/progmodes/gdb-ui.el	Wed Jul 16 23:02:52 2008 +0000
@@ -470,11 +470,14 @@
 	 (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 @@
   (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))