From: Nick Roberts <nickrob@snap.net.nz>
Date: Sun, 27 Jan 2008 20:53:02 +0000 (+0000)
Subject: (gdb-create-define-alist): Don't call
X-Git-Tag: emacs-pretest-22.1.90~19
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=f43ad7374fe3caf1e89cd6ede0f83769ef30998b;p=emacs.git

(gdb-create-define-alist): Don't call
gdb-cpp-define-alist-program if file is nil (currently only
" *partial-output-...").
---

diff --git a/lisp/progmodes/gdb-ui.el b/lisp/progmodes/gdb-ui.el
index d85bf23c7c5..4e6727cdbad 100644
--- a/lisp/progmodes/gdb-ui.el
+++ b/lisp/progmodes/gdb-ui.el
@@ -435,11 +435,11 @@ otherwise do not."
 	 (output
 	  (with-output-to-string
 	    (with-current-buffer standard-output
-	      (call-process shell-file-name
-			    (if (file-exists-p file) file nil)
+	      (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)))))
+				    gdb-cpp-define-alist-flags))))))
 	(define-list (split-string output "\n" t)) (name))
     (setq gdb-define-alist nil)
     (dolist (define define-list)