From: Stefan Monnier Date: Wed, 8 Mar 2000 23:46:09 +0000 (+0000) Subject: (comint-exec-1): Add the current-dir to the exec-path when X-Git-Tag: emacs-pretest-21.0.90~4713 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=433d16a1961e32b95c0299650f4222765415bbb4;p=emacs.git (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 --git a/lisp/comint.el b/lisp/comint.el index d0b40e90913..7084d77bd21 100644 --- a/lisp/comint.el +++ b/lisp/comint.el @@ -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 @@ buffer. The hook `comint-exec-hook' is run after each exec." 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)