[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/lisp/cmuscheme.el
From: |
Juanma Barranquero |
Subject: |
[Emacs-diffs] Changes to emacs/lisp/cmuscheme.el |
Date: |
Mon, 08 Aug 2005 14:00:19 -0400 |
Index: emacs/lisp/cmuscheme.el
diff -c emacs/lisp/cmuscheme.el:1.40 emacs/lisp/cmuscheme.el:1.41
*** emacs/lisp/cmuscheme.el:1.40 Mon Aug 8 17:53:51 2005
--- emacs/lisp/cmuscheme.el Mon Aug 8 18:00:19 2005
***************
*** 26,32 ****
;;; Commentary:
! ;; This is a customisation of comint-mode (see comint.el)
;;
;; Written by Olin Shivers (address@hidden). With bits and pieces
;; lifted from scheme.el, shell.el, clisp.el, newclisp.el, cobol.el, et al..
--- 26,32 ----
;;; Commentary:
! ;; This is a customization of comint-mode (see comint.el)
;;
;; Written by Olin Shivers (address@hidden). With bits and pieces
;; lifted from scheme.el, shell.el, clisp.el, newclisp.el, cobol.el, et al..
***************
*** 106,112 ****
;;;============================================================================
(defcustom inferior-scheme-mode-hook nil
! "*Hook for customising inferior-scheme mode."
:type 'hook
:group 'cmuscheme)
--- 106,112 ----
;;;============================================================================
(defcustom inferior-scheme-mode-hook nil
! "*Hook for customizing inferior-scheme mode."
:type 'hook
:group 'cmuscheme)
***************
*** 172,178 ****
A Scheme process can be fired up with M-x run-scheme.
! Customisation: Entry to this mode runs the hooks on comint-mode-hook and
inferior-scheme-mode-hook (in that order).
You can send text to the inferior Scheme process from other buffers containing
--- 172,178 ----
A Scheme process can be fired up with M-x run-scheme.
! Customization: Entry to this mode runs the hooks on comint-mode-hook and
inferior-scheme-mode-hook (in that order).
You can send text to the inferior Scheme process from other buffers containing
***************
*** 201,207 ****
Paragraphs are separated only by blank lines. Semicolons start comments.
If you accidentally suspend your process, use \\[comint-continue-subjob]
to continue it."
! ;; Customise in inferior-scheme-mode-hook
(setq comint-prompt-regexp "^[^>\n]*>+ *") ; OK for cscheme, oaklisp, T,...
(scheme-mode-variables)
(setq mode-line-process '(":%s"))
--- 201,207 ----
Paragraphs are separated only by blank lines. Semicolons start comments.
If you accidentally suspend your process, use \\[comint-continue-subjob]
to continue it."
! ;; Customize in inferior-scheme-mode-hook
(setq comint-prompt-regexp "^[^>\n]*>+ *") ; OK for cscheme, oaklisp, T,...
(scheme-mode-variables)
(setq mode-line-process '(":%s"))
***************
*** 432,439 ****
(defvar scheme-prev-l/c-dir/file nil
"Caches the last (directory . file) pair.
Caches the last pair used in the last `scheme-load-file' or
! `scheme-compile-file' command. Used for determining the default in the
! next one.")
(defun scheme-load-file (file-name)
"Load a Scheme file FILE-NAME into the inferior Scheme process."
--- 432,439 ----
(defvar scheme-prev-l/c-dir/file nil
"Caches the last (directory . file) pair.
Caches the last pair used in the last `scheme-load-file' or
! `scheme-compile-file' command. Used for determining the default
! in the next one.")
(defun scheme-load-file (file-name)
"Load a Scheme file FILE-NAME into the inferior Scheme process."
***************
*** 525,531 ****
(save-window-excursion
(run-scheme (read-string "Run Scheme: " scheme-program-name))))
! ;;; Do the user's customisation...
(defcustom cmuscheme-load-hook nil
"This hook is run when cmuscheme is loaded in.
--- 525,531 ----
(save-window-excursion
(run-scheme (read-string "Run Scheme: " scheme-program-name))))
! ;;; Do the user's customization...
(defcustom cmuscheme-load-hook nil
"This hook is run when cmuscheme is loaded in.