(tex-start-shell): Use add-hook for

comint-input-filter-functions.  Make variables related to shell
directory tracking local.
This commit is contained in:
Andreas Schwab 1999-03-29 09:06:05 +00:00
parent c076faabba
commit 0959218256

View file

@ -1005,7 +1005,11 @@ Mark is left at original location."
(tex-define-common-keys tex-shell-map)
(use-local-map tex-shell-map)
(compilation-shell-minor-mode t)
(setq comint-input-filter-functions 'shell-directory-tracker)
(add-hook 'comint-input-filter-functions 'shell-directory-tracker nil t)
(make-local-variable 'list-buffers-directory)
(make-local-variable 'shell-dirstack)
(make-local-variable 'shell-last-dir)
(make-local-variable 'shell-dirtrackp)
(run-hooks 'tex-shell-hook)
(while (zerop (buffer-size))
(sleep-for 1)))))