diff options
| -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))) |