[Emacs-diffs] Changes to emacs/lisp/cmuscheme.el

[Juanma Barranquero]

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.