# HG changeset patch
# User Nick Roberts <nickrob@snap.net.nz>
# Date 1251671045 0
# Node ID dc5b8d58abfe53bb52173144db541db64e53eaf9
# Parent  329b26389fdb5e46040842a5f09f8dc935026389
(comint-exec-1): Check command is non-null first.
Part of gdb-mi.el change (2009-08-28).

diff -r 329b26389fdb -r dc5b8d58abfe lisp/comint.el
--- a/lisp/comint.el	Sun Aug 30 22:23:15 2009 +0000
+++ b/lisp/comint.el	Sun Aug 30 22:24:05 2009 +0000
@@ -790,7 +790,7 @@
 	      default-directory
 	    "/"))
 	proc decoding encoding changed)
-    (let ((exec-path (if (file-name-directory command)
+    (let ((exec-path (if (and command (file-name-directory command))
 			 ;; If the command has slashes, make sure we
 			 ;; first look relative to the current directory.
 			 (cons default-directory exec-path) exec-path)))