From: Nick Roberts <nickrob@snap.net.nz>
Date: Sun, 30 Aug 2009 22:24:05 +0000 (+0000)
Subject: (comint-exec-1): Check command is non-null first.
X-Git-Tag: emacs-pretest-23.1.90~1571
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=c7d6ddf067f95ee477a90f24b0cd123b87d3b78b;p=emacs.git

(comint-exec-1): Check command is non-null first.
Part of gdb-mi.el change (2009-08-28).
---

diff --git a/lisp/comint.el b/lisp/comint.el
index 69fd32d9b3b..36d7de5ec2f 100644
--- a/lisp/comint.el
+++ b/lisp/comint.el
@@ -790,7 +790,7 @@ buffer.  The hook `comint-exec-hook' is run after each exec."
 	      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)))