From 1ff6cf10598399bc08b81366e6bbedfd46bab5f6 Mon Sep 17 00:00:00 2001 From: Jim Blandy Date: Sat, 2 Feb 1991 12:41:08 +0000 Subject: [PATCH] *** empty log message *** --- lisp/comint.el | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/lisp/comint.el b/lisp/comint.el index 0a81e2f5f1..31e8b40e1e 100644 --- a/lisp/comint.el +++ b/lisp/comint.el @@ -147,13 +147,13 @@ to continue it. 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 '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) @@ -177,7 +177,7 @@ Entry to this mode runs the hooks on comint-mode-hook." (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)) + (cond ((not (comint-check-proc buffer)) (save-excursion (set-buffer buffer) (comint-mode)) ; Install local vars, mode, keymap, ... @@ -209,7 +209,7 @@ You can use this to cheaply run a series of processes in the same buffer." (insert-file-contents startfile) (setq startfile (buffer-substring (point) (point-max))) (delete-region (point) (point-max)) - (comint-send-string proc startfile))) + (comint-send-string proc startfile)))) buffer)) ;;; This auxiliary function cranks up the process for comint-exec in -- 2.39.2