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

[Juanma Barranquero]

Index: emacs/lisp/cmuscheme.el
diff -c emacs/lisp/cmuscheme.el:1.39 emacs/lisp/cmuscheme.el:1.40
*** emacs/lisp/cmuscheme.el:1.39        Sat Aug  6 22:13:42 2005
--- emacs/lisp/cmuscheme.el     Mon Aug  8 17:53:51 2005
***************
*** 272,278 ****
           (start-file (concat "~/" name)))
      (if (file-exists-p start-file)
          start-file
!       (let ((start-file (concat user-emacs-directory name)))
          (and (file-exists-p start-file) start-file)))))
  
  (defun scheme-send-region (start end)
--- 272,278 ----
           (start-file (concat "~/" name)))
      (if (file-exists-p start-file)
          start-file
!       (let ((start-file (concat "~/.emacs.d/" name)))
          (and (file-exists-p start-file) start-file)))))
  
  (defun scheme-send-region (start end)
***************
*** 349,355 ****
    (when (= (length proc) 0)
      (error "Invalid procedure name"))
    (comint-send-string (scheme-proc)
!                       (format 
                         (if untrace scheme-untrace-command 
scheme-trace-command)
                         proc))
    (comint-send-string (scheme-proc) "\n"))
--- 349,355 ----
    (when (= (length proc) 0)
      (error "Invalid procedure name"))
    (comint-send-string (scheme-proc)
!                       (format
                         (if untrace scheme-untrace-command 
scheme-trace-command)
                         proc))
    (comint-send-string (scheme-proc) "\n"))
***************
*** 367,376 ****
      (if current-form
          (progn
            (comint-send-string (scheme-proc)
!                               (format 
                                 scheme-macro-expand-command
                                 current-form))
!           (comint-send-string (scheme-proc) "\n"))      
        (error "Not at a form"))))
  
  (defun scheme-form-at-point ()
--- 367,376 ----
      (if current-form
          (progn
            (comint-send-string (scheme-proc)
!                               (format
                                 scheme-macro-expand-command
                                 current-form))
!           (comint-send-string (scheme-proc) "\n"))
        (error "Not at a form"))))
  
  (defun scheme-form-at-point ()
***************
*** 506,512 ****
    "Return the current Scheme process, starting one if necessary.
  See variable `scheme-buffer'."
    (unless (and scheme-buffer
!                (get-buffer scheme-buffer) 
                 (comint-check-proc scheme-buffer))
      (scheme-interactively-start-process))
    (or (scheme-get-process)
--- 506,512 ----
    "Return the current Scheme process, starting one if necessary.
  See variable `scheme-buffer'."
    (unless (and scheme-buffer
!                (get-buffer scheme-buffer)
                 (comint-check-proc scheme-buffer))
      (scheme-interactively-start-process))
    (or (scheme-get-process)