# HG changeset patch
# User Juanma Barranquero <lekktu@gmail.com>
# Date 1123523631 0
# Node ID 871d0952aeb33ca67f167f9dd71b255e562d851a
# Parent  f55bcc082f4ad38f48a132914567316bc5ebdaae
(scheme-start-file): Replace reference to `user-emacs-directory' by
"~/.emacs.d/".

diff -r f55bcc082f4a -r 871d0952aeb3 lisp/cmuscheme.el
--- a/lisp/cmuscheme.el	Mon Aug 08 17:50:20 2005 +0000
+++ b/lisp/cmuscheme.el	Mon Aug 08 17:53:51 2005 +0000
@@ -272,7 +272,7 @@
          (start-file (concat "~/" name)))
     (if (file-exists-p start-file)
         start-file
-      (let ((start-file (concat user-emacs-directory name)))
+      (let ((start-file (concat "~/.emacs.d/" name)))
         (and (file-exists-p start-file) start-file)))))
 
 (defun scheme-send-region (start end)
@@ -349,7 +349,7 @@
   (when (= (length proc) 0)
     (error "Invalid procedure name"))
   (comint-send-string (scheme-proc)
-                      (format 
+                      (format
                        (if untrace scheme-untrace-command scheme-trace-command)
                        proc))
   (comint-send-string (scheme-proc) "\n"))
@@ -367,10 +367,10 @@
     (if current-form
         (progn
           (comint-send-string (scheme-proc)
-                              (format 
+                              (format
                                scheme-macro-expand-command
                                current-form))
-          (comint-send-string (scheme-proc) "\n"))      
+          (comint-send-string (scheme-proc) "\n"))
       (error "Not at a form"))))
 
 (defun scheme-form-at-point ()
@@ -506,7 +506,7 @@
   "Return the current Scheme process, starting one if necessary.
 See variable `scheme-buffer'."
   (unless (and scheme-buffer
-               (get-buffer scheme-buffer) 
+               (get-buffer scheme-buffer)
                (comint-check-proc scheme-buffer))
     (scheme-interactively-start-process))
   (or (scheme-get-process)