478 |
|
|
479 |
Entry to this mode runs the hooks on `comint-mode-hook'." |
Entry to this mode runs the hooks on `comint-mode-hook'." |
480 |
(setq mode-line-process '(":%s")) |
(setq mode-line-process '(":%s")) |
481 |
(make-local-variable 'comint-last-input-start) |
(set (make-local-variable 'comint-last-input-start) (point-min-marker)) |
482 |
(setq comint-last-input-start (make-marker)) |
(set (make-local-variable 'comint-last-input-end) (point-min-marker)) |
483 |
(set-marker comint-last-input-start (point-min)) |
(set (make-local-variable 'comint-last-output-start) (make-marker)) |
|
(make-local-variable 'comint-last-input-end) |
|
|
(setq comint-last-input-end (make-marker)) |
|
|
(set-marker comint-last-input-end (point-min)) |
|
|
(make-local-variable 'comint-last-output-start) |
|
|
(setq comint-last-output-start (make-marker)) |
|
484 |
(make-local-variable 'comint-last-output-overlay) |
(make-local-variable 'comint-last-output-overlay) |
485 |
(make-local-variable 'comint-last-prompt-overlay) |
(make-local-variable 'comint-last-prompt-overlay) |
486 |
(make-local-variable 'comint-prompt-regexp) ; Don't set; default |
(make-local-variable 'comint-prompt-regexp) ; Don't set; default |
499 |
(make-local-variable 'comint-input-autoexpand) |
(make-local-variable 'comint-input-autoexpand) |
500 |
(make-local-variable 'comint-input-ignoredups) |
(make-local-variable 'comint-input-ignoredups) |
501 |
(make-local-variable 'comint-delimiter-argument-list) |
(make-local-variable 'comint-delimiter-argument-list) |
|
(make-local-hook 'comint-dynamic-complete-functions) |
|
502 |
(make-local-variable 'comint-completion-fignore) |
(make-local-variable 'comint-completion-fignore) |
503 |
(make-local-variable 'comint-get-old-input) |
(make-local-variable 'comint-get-old-input) |
|
(make-local-hook 'comint-input-filter-functions) |
|
504 |
(make-local-variable 'comint-input-filter) |
(make-local-variable 'comint-input-filter) |
505 |
(make-local-variable 'comint-input-sender) |
(make-local-variable 'comint-input-sender) |
506 |
(make-local-variable 'comint-eol-on-send) |
(make-local-variable 'comint-eol-on-send) |
508 |
(make-local-variable 'comint-scroll-to-bottom-on-output) |
(make-local-variable 'comint-scroll-to-bottom-on-output) |
509 |
(make-local-variable 'comint-scroll-show-maximum-output) |
(make-local-variable 'comint-scroll-show-maximum-output) |
510 |
(add-hook 'pre-command-hook 'comint-preinput-scroll-to-bottom t t) |
(add-hook 'pre-command-hook 'comint-preinput-scroll-to-bottom t t) |
|
(make-local-hook 'comint-output-filter-functions) |
|
|
(make-local-hook 'comint-exec-hook) |
|
511 |
(make-local-variable 'comint-ptyp) |
(make-local-variable 'comint-ptyp) |
512 |
(make-local-variable 'comint-process-echoes) |
(make-local-variable 'comint-process-echoes) |
513 |
(make-local-variable 'comint-file-name-chars) |
(make-local-variable 'comint-file-name-chars) |
514 |
(make-local-variable 'comint-file-name-quote-list) |
(make-local-variable 'comint-file-name-quote-list) |
515 |
(make-local-variable 'comint-accum-marker) |
(set (make-local-variable 'comint-accum-marker) (make-marker)) |
|
(setq comint-accum-marker (make-marker)) |
|
|
(set-marker comint-accum-marker nil) |
|
516 |
;; This behavior is not useful in comint buffers, and is annoying |
;; This behavior is not useful in comint buffers, and is annoying |
517 |
(set (make-local-variable 'next-line-add-newlines) nil)) |
(set (make-local-variable 'next-line-add-newlines) nil)) |
518 |
|
|
649 |
;; comint mode. Otherwise, leave buffer and existing process alone. |
;; comint mode. Otherwise, leave buffer and existing process alone. |
650 |
(unless (comint-check-proc buffer) |
(unless (comint-check-proc buffer) |
651 |
(with-current-buffer buffer |
(with-current-buffer buffer |
652 |
(comint-mode)) ; Install local vars, mode, keymap, ... |
(unless (derived-mode-p 'comint-mode) |
653 |
|
(comint-mode))) ; Install local vars, mode, keymap, ... |
654 |
(comint-exec buffer name program startfile switches)) |
(comint-exec buffer name program startfile switches)) |
655 |
buffer) |
buffer) |
656 |
|
|