# HG changeset patch
# User Nick Roberts <nickrob@snap.net.nz>
# Date 1201467182 0
# Node ID d1a91cfdb94c75462ad8f0810c0637258dd4ceca
# Parent  d4d72629ba034bafa1092e4b5333e63cf1ed13d4
(gdb-create-define-alist): Don't call
gdb-cpp-define-alist-program if file is nil (currently only
" *partial-output-...").

diff -r d4d72629ba03 -r d1a91cfdb94c lisp/progmodes/gdb-ui.el
--- a/lisp/progmodes/gdb-ui.el	Sun Jan 27 20:51:19 2008 +0000
+++ b/lisp/progmodes/gdb-ui.el	Sun Jan 27 20:53:02 2008 +0000
@@ -435,11 +435,11 @@
 	 (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)