/[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.39 by ttn, Sat Aug 6 22:13:42 2005 UTC revision 1.40 by lektu, Mon Aug 8 17:53:51 2005 UTC
# Line 272  order.  Return nil if no start file foun Line 272  order.  Return nil if no start file foun
272           (start-file (concat "~/" name)))           (start-file (concat "~/" name)))
273      (if (file-exists-p start-file)      (if (file-exists-p start-file)
274          start-file          start-file
275        (let ((start-file (concat user-emacs-directory name)))        (let ((start-file (concat "~/.emacs.d/" name)))
276          (and (file-exists-p start-file) start-file)))))          (and (file-exists-p start-file) start-file)))))
277    
278  (defun scheme-send-region (start end)  (defun scheme-send-region (start end)
# Line 349  With a prefix argument switch off tracin Line 349  With a prefix argument switch off tracin
349    (when (= (length proc) 0)    (when (= (length proc) 0)
350      (error "Invalid procedure name"))      (error "Invalid procedure name"))
351    (comint-send-string (scheme-proc)    (comint-send-string (scheme-proc)
352                        (format                        (format
353                         (if untrace scheme-untrace-command scheme-trace-command)                         (if untrace scheme-untrace-command scheme-trace-command)
354                         proc))                         proc))
355    (comint-send-string (scheme-proc) "\n"))    (comint-send-string (scheme-proc) "\n"))
# Line 367  For Scheme 48 and Scsh use \",expand %s\ Line 367  For Scheme 48 and Scsh use \",expand %s\
367      (if current-form      (if current-form
368          (progn          (progn
369            (comint-send-string (scheme-proc)            (comint-send-string (scheme-proc)
370                                (format                                (format
371                                 scheme-macro-expand-command                                 scheme-macro-expand-command
372                                 current-form))                                 current-form))
373            (comint-send-string (scheme-proc) "\n"))                  (comint-send-string (scheme-proc) "\n"))
374        (error "Not at a form"))))        (error "Not at a form"))))
375    
376  (defun scheme-form-at-point ()  (defun scheme-form-at-point ()
# Line 506  for a minimal, simple implementation.  F Line 506  for a minimal, simple implementation.  F
506    "Return the current Scheme process, starting one if necessary.    "Return the current Scheme process, starting one if necessary.
507  See variable `scheme-buffer'."  See variable `scheme-buffer'."
508    (unless (and scheme-buffer    (unless (and scheme-buffer
509                 (get-buffer scheme-buffer)                 (get-buffer scheme-buffer)
510                 (comint-check-proc scheme-buffer))                 (comint-check-proc scheme-buffer))
511      (scheme-interactively-start-process))      (scheme-interactively-start-process))
512    (or (scheme-get-process)    (or (scheme-get-process)

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

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