695 |
(comint-exec-1 name buffer command switches)))) |
(comint-exec-1 name buffer command switches)))) |
696 |
(set-process-filter proc 'comint-output-filter) |
(set-process-filter proc 'comint-output-filter) |
697 |
(make-local-variable 'comint-ptyp) |
(make-local-variable 'comint-ptyp) |
698 |
(setq comint-ptyp process-connection-type) ; T if pty, NIL if pipe. |
(setq comint-ptyp process-connection-type) ; t if pty, nil if pipe. |
699 |
;; Jump to the end, and set the process mark. |
;; Jump to the end, and set the process mark. |
700 |
(goto-char (point-max)) |
(goto-char (point-max)) |
701 |
(set-marker (process-mark proc) (point)) |
(set-marker (process-mark proc) (point)) |
2272 |
;;============================================================================ |
;;============================================================================ |
2273 |
;; Many command-interpreters (e.g., Lisp, Scheme, Soar) have |
;; Many command-interpreters (e.g., Lisp, Scheme, Soar) have |
2274 |
;; commands that process files of source text (e.g. loading or compiling |
;; commands that process files of source text (e.g. loading or compiling |
2275 |
;; files). So the corresponding process-in-a-buffer modes have commands |
;; files). So the corresponding process-in-a-buffer modes have commands |
2276 |
;; for doing this (e.g., lisp-load-file). The functions below are useful |
;; for doing this (e.g., lisp-load-file). The functions below are useful |
2277 |
;; for defining these commands. |
;; for defining these commands. |
2278 |
;; |
;; |
2279 |
;; Alas, these guys don't do exactly the right thing for Lisp, Scheme |
;; Alas, these guys don't do exactly the right thing for Lisp, Scheme |
2281 |
;; So the compile/load interface gets the wrong default occasionally. |
;; So the compile/load interface gets the wrong default occasionally. |
2282 |
;; The load-file/compile-file default mechanism could be smarter -- it |
;; The load-file/compile-file default mechanism could be smarter -- it |
2283 |
;; doesn't know about the relationship between filename extensions and |
;; doesn't know about the relationship between filename extensions and |
2284 |
;; whether the file is source or executable. If you compile foo.lisp |
;; whether the file is source or executable. If you compile foo.lisp |
2285 |
;; with compile-file, then the next load-file should use foo.bin for |
;; with compile-file, then the next load-file should use foo.bin for |
2286 |
;; the default, not foo.lisp. This is tricky to do right, particularly |
;; the default, not foo.lisp. This is tricky to do right, particularly |
2287 |
;; because the extension for executable files varies so much (.o, .bin, |
;; because the extension for executable files varies so much (.o, .bin, |
2288 |
;; .lbin, .mo, .vo, .ao, ...). |
;; .lbin, .mo, .vo, .ao, ...). |
2289 |
|
|
2304 |
;; commands for tea, soar, cmulisp, and cmuscheme modes. |
;; commands for tea, soar, cmulisp, and cmuscheme modes. |
2305 |
;; |
;; |
2306 |
;; - PREVIOUS-DIR/FILE is a pair (directory . filename) from the last |
;; - PREVIOUS-DIR/FILE is a pair (directory . filename) from the last |
2307 |
;; source-file processing command. NIL if there hasn't been one yet. |
;; source-file processing command. nil if there hasn't been one yet. |
2308 |
;; - SOURCE-MODES is a list used to determine what buffers contain source |
;; - SOURCE-MODES is a list used to determine what buffers contain source |
2309 |
;; files: if the major mode of the buffer is in SOURCE-MODES, it's source. |
;; files: if the major mode of the buffer is in SOURCE-MODES, it's source. |
2310 |
;; Typically, (lisp-mode) or (scheme-mode). |
;; Typically, (lisp-mode) or (scheme-mode). |
2311 |
;; |
;; |
2312 |
;; If the command is given while the cursor is inside a string, *and* |
;; If the command is given while the cursor is inside a string, *and* |
2313 |
;; the string is an existing filename, *and* the filename is not a directory, |
;; the string is an existing filename, *and* the filename is not a directory, |
2314 |
;; then the string is taken as default. This allows you to just position |
;; then the string is taken as default. This allows you to just position |
2315 |
;; your cursor over a string that's a filename and have it taken as default. |
;; your cursor over a string that's a filename and have it taken as default. |
2316 |
;; |
;; |
2317 |
;; If the command is given in a file buffer whose major mode is in |
;; If the command is given in a file buffer whose major mode is in |