# HG changeset patch
# User Stefan Monnier <monnier@iro.umontreal.ca>
# Date 952559169 0
# Node ID 34cb92c8c3e49a6de0dbe92c5aa33b1dc9ecc557
# Parent  f1b33463506d069aef4d8c6a7212d4154e9b04a3
(comint-exec-1): Add the current-dir to the exec-path when
the command has a directory component (such as "./testml").
Also fix a typo in the comment.

diff -r f1b33463506d -r 34cb92c8c3e4 lisp/comint.el
--- a/lisp/comint.el	Wed Mar 08 23:26:00 2000 +0000
+++ b/lisp/comint.el	Wed Mar 08 23:46:09 2000 +0000
@@ -124,7 +124,6 @@
 ;;  comint-save-input-ring-index	number	...
 ;;  comint-input-autoexpand		symbol	...
 ;;  comint-input-ignoredups		boolean	...
-;;  comint-last-input-match		string	...
 ;;  comint-dynamic-complete-functions	hook   For the completion mechanism
 ;;  comint-completion-fignore		list	...
 ;;  comint-file-name-chars		string	...
@@ -692,12 +691,16 @@
 	      default-directory
 	    (char-to-string directory-sep-char)))
 	proc decoding encoding changed)
-    (setq proc (apply 'start-process name buffer command switches))
+    (let ((exec-path (if (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)))
+      (setq proc (apply 'start-process name buffer command switches)))
     (let ((coding-systems (process-coding-system proc)))
       (setq decoding (car coding-systems)
 	    encoding (cdr coding-systems)))
     ;; If start-process decided to use some coding system for decoding
-    ;; data sent form the process and the coding system doesn't
+    ;; data sent from the process and the coding system doesn't
     ;; specify EOL conversion, we had better convert CRLF to LF.
     (if (vectorp (coding-system-eol-type decoding))
 	(setq decoding (coding-system-change-eol-conversion decoding 'dos)