Mercurial > emacs
comparison lisp/textmodes/tex-mode.el @ 10190:2569f4d3073e
Be consistent in use of comint (instead of shell) mode.
| author | Edward M. Reingold <reingold@emr.cs.iit.edu> |
|---|---|
| date | Mon, 19 Dec 1994 19:09:39 +0000 |
| parents | fdc268ab037d |
| children | 66681eddfd70 |
comparison
equal
deleted
inserted
replaced
| 10189:b2d6d69b7707 | 10190:2569f4d3073e |
|---|---|
| 822 (or tex-shell-file-name (getenv "ESHELL") (getenv "SHELL") "/bin/sh") | 822 (or tex-shell-file-name (getenv "ESHELL") (getenv "SHELL") "/bin/sh") |
| 823 nil)) | 823 nil)) |
| 824 (let ((proc (get-process "tex-shell"))) | 824 (let ((proc (get-process "tex-shell"))) |
| 825 (set-process-sentinel proc 'tex-shell-sentinel) | 825 (set-process-sentinel proc 'tex-shell-sentinel) |
| 826 (process-kill-without-query proc) | 826 (process-kill-without-query proc) |
| 827 (setq tex-shell-map (nconc (make-sparse-keymap) shell-mode-map)) | 827 (setq comint-prompt-regexp shell-prompt-pattern) |
| 828 (setq tex-shell-map (copy-keymap comint-mode-map)) | |
| 828 (tex-define-common-keys tex-shell-map) | 829 (tex-define-common-keys tex-shell-map) |
| 829 (use-local-map tex-shell-map) | 830 (use-local-map tex-shell-map) |
| 830 (run-hooks 'tex-shell-hook) | 831 (run-hooks 'tex-shell-hook) |
| 831 (while (zerop (buffer-size)) | 832 (while (zerop (buffer-size)) |
| 832 (sleep-for 1))))) | 833 (sleep-for 1))))) |