comparison lisp/comint.el @ 182:35ea4993d08c

*** empty log message ***

181:a587d037d637

\\{comint-mode-map}

Entry to this mode runs the hooks on comint-mode-hook."
  (interactive)
  (make-local-variable 'input-ring)
  (put 'input-ring 'preserved t)
  (kill-all-local-variables)
  (setq major-mode 'comint-mode
        mode-name "Comint"
        mode-line-process '(": %s"))
  (use-local-map comint-mode-map)
  (set (make-local-variable 'comint-last-input-match) "")
  (set (make-local-variable 'comint-last-similar--string) "")
  (set (make-local-variable 'input-ring-index) 0)
  (set (make-local-variable 'comint-last-input-end) (make-marker))
  (set-marker comint-last-input-end (point-max))

(defun make-comint (name program &optional startfile &rest switches)
  (let* ((buffer (get-buffer-create (concat "*" name "*")))
	 (proc (get-buffer-process buffer)))
    ;; If no process, or nuked process, crank up a new one and put buffer in
    ;; comint mode. Otherwise, leave buffer and existing process alone.
    (cond ((not (comint-check-proc))
           (save-excursion
	     (set-buffer buffer)
	     (comint-mode)) ; Install local vars, mode, keymap, ...
	   (comint-exec buffer name program startfile switches)))
    buffer))

	     (sleep-for 1)
	     (goto-char (point-max))
	     (insert-file-contents startfile)
	     (setq startfile (buffer-substring (point) (point-max)))
	     (delete-region (point) (point-max))
	     (comint-send-string proc startfile)))
    buffer))

;;; This auxiliary function cranks up the process for comint-exec in
;;; the appropriate environment. It is twice as long as it should be
;;; because emacs has two distinct mechanisms for manipulating the

182:35ea4993d08c

\\{comint-mode-map}

Entry to this mode runs the hooks on comint-mode-hook."
  (interactive)
  (kill-all-local-variables)
  (setq major-mode 'comint-mode
        mode-name "Comint"
        mode-line-process '(": %s"))
  (use-local-map comint-mode-map)
  (set (make-local-variable 'input-ring) (make-ring input-ring-size))
  (put 'input-ring 'preserved t)
  (set (make-local-variable 'comint-last-input-match) "")
  (set (make-local-variable 'comint-last-similar--string) "")
  (set (make-local-variable 'input-ring-index) 0)
  (set (make-local-variable 'comint-last-input-end) (make-marker))
  (set-marker comint-last-input-end (point-max))

(defun make-comint (name program &optional startfile &rest switches)
  (let* ((buffer (get-buffer-create (concat "*" name "*")))
	 (proc (get-buffer-process buffer)))
    ;; If no process, or nuked process, crank up a new one and put buffer in
    ;; comint mode. Otherwise, leave buffer and existing process alone.
    (cond ((not (comint-check-proc buffer))
           (save-excursion
	     (set-buffer buffer)
	     (comint-mode)) ; Install local vars, mode, keymap, ...
	   (comint-exec buffer name program startfile switches)))
    buffer))

	     (sleep-for 1)
	     (goto-char (point-max))
	     (insert-file-contents startfile)
	     (setq startfile (buffer-substring (point) (point-max)))
	     (delete-region (point) (point-max))
	     (comint-send-string proc startfile))))
    buffer))

;;; This auxiliary function cranks up the process for comint-exec in
;;; the appropriate environment. It is twice as long as it should be
;;; because emacs has two distinct mechanisms for manipulating the