/[emacs]/emacs/lisp/cmuscheme.el
ViewVC logotype

Diff of /emacs/lisp/cmuscheme.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.40 by lektu, Mon Aug 8 17:53:51 2005 UTC revision 1.41 by lektu, Mon Aug 8 18:00:19 2005 UTC
# Line 26  Line 26 
26    
27  ;;; Commentary:  ;;; Commentary:
28    
29  ;;    This is a customisation of comint-mode (see comint.el)  ;;    This is a customization of comint-mode (see comint.el)
30  ;;  ;;
31  ;; Written by Olin Shivers (olin.shivers@cs.cmu.edu). With bits and pieces  ;; Written by Olin Shivers (olin.shivers@cs.cmu.edu). With bits and pieces
32  ;; lifted from scheme.el, shell.el, clisp.el, newclisp.el, cobol.el, et al..  ;; lifted from scheme.el, shell.el, clisp.el, newclisp.el, cobol.el, et al..
# Line 106  Line 106 
106  ;;;============================================================================  ;;;============================================================================
107    
108  (defcustom inferior-scheme-mode-hook nil  (defcustom inferior-scheme-mode-hook nil
109    "*Hook for customising inferior-scheme mode."    "*Hook for customizing inferior-scheme mode."
110    :type 'hook    :type 'hook
111    :group 'cmuscheme)    :group 'cmuscheme)
112    
# Line 172  The following commands are available: Line 172  The following commands are available:
172    
173  A Scheme process can be fired up with M-x run-scheme.  A Scheme process can be fired up with M-x run-scheme.
174    
175  Customisation: Entry to this mode runs the hooks on comint-mode-hook and  Customization: Entry to this mode runs the hooks on comint-mode-hook and
176  inferior-scheme-mode-hook (in that order).  inferior-scheme-mode-hook (in that order).
177    
178  You can send text to the inferior Scheme process from other buffers containing  You can send text to the inferior Scheme process from other buffers containing
# Line 201  C-M-q does Tab on each line starting wit Line 201  C-M-q does Tab on each line starting wit
201  Paragraphs are separated only by blank lines.  Semicolons start comments.  Paragraphs are separated only by blank lines.  Semicolons start comments.
202  If you accidentally suspend your process, use \\[comint-continue-subjob]  If you accidentally suspend your process, use \\[comint-continue-subjob]
203  to continue it."  to continue it."
204    ;; Customise in inferior-scheme-mode-hook    ;; Customize in inferior-scheme-mode-hook
205    (setq comint-prompt-regexp "^[^>\n]*>+ *") ; OK for cscheme, oaklisp, T,...    (setq comint-prompt-regexp "^[^>\n]*>+ *") ; OK for cscheme, oaklisp, T,...
206    (scheme-mode-variables)    (scheme-mode-variables)
207    (setq mode-line-process '(":%s"))    (setq mode-line-process '(":%s"))
# Line 432  Used by these commands to determine defa Line 432  Used by these commands to determine defa
432  (defvar scheme-prev-l/c-dir/file nil  (defvar scheme-prev-l/c-dir/file nil
433    "Caches the last (directory . file) pair.    "Caches the last (directory . file) pair.
434  Caches the last pair used in the last `scheme-load-file' or  Caches the last pair used in the last `scheme-load-file' or
435  `scheme-compile-file' command. Used for determining the default in the  `scheme-compile-file' command.  Used for determining the default
436  next one.")  in the next one.")
437    
438  (defun scheme-load-file (file-name)  (defun scheme-load-file (file-name)
439    "Load a Scheme file FILE-NAME into the inferior Scheme process."    "Load a Scheme file FILE-NAME into the inferior Scheme process."
# Line 525  command to run." Line 525  command to run."
525    (save-window-excursion    (save-window-excursion
526      (run-scheme (read-string "Run Scheme: " scheme-program-name))))      (run-scheme (read-string "Run Scheme: " scheme-program-name))))
527    
528  ;;; Do the user's customisation...  ;;; Do the user's customization...
529    
530  (defcustom cmuscheme-load-hook nil  (defcustom cmuscheme-load-hook nil
531    "This hook is run when cmuscheme is loaded in.    "This hook is run when cmuscheme is loaded in.

Legend:
Removed from v.1.40  
changed lines
  Added in v.1.41

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26