diff options
| author | Nick Roberts | 2009-08-30 22:24:05 +0000 |
|---|---|---|
| committer | Nick Roberts | 2009-08-30 22:24:05 +0000 |
| commit | c7d6ddf067f95ee477a90f24b0cd123b87d3b78b (patch) | |
| tree | 1e1425d60f5cb79a01c756c6e6931e7c09c5abc1 | |
| parent | 4324f7ca08db04f48d13bcc0532110934b7ffa31 (diff) | |
| download | emacs-c7d6ddf067f95ee477a90f24b0cd123b87d3b78b.tar.gz emacs-c7d6ddf067f95ee477a90f24b0cd123b87d3b78b.zip | |
(comint-exec-1): Check command is non-null first.
Part of gdb-mi.el change (2009-08-28).
| -rw-r--r-- | lisp/comint.el | 2 |
1 files changed, 1 insertions, 1 deletions
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." | |||
| 790 | default-directory | 790 | default-directory |
| 791 | "/")) | 791 | "/")) |
| 792 | proc decoding encoding changed) | 792 | proc decoding encoding changed) |
| 793 | (let ((exec-path (if (file-name-directory command) | 793 | (let ((exec-path (if (and command (file-name-directory command)) |
| 794 | ;; If the command has slashes, make sure we | 794 | ;; If the command has slashes, make sure we |
| 795 | ;; first look relative to the current directory. | 795 | ;; first look relative to the current directory. |
| 796 | (cons default-directory exec-path) exec-path))) | 796 | (cons default-directory exec-path) exec-path))) |