diff options
author | Juanma Barranquero <lekktu@gmail.com> | 2005-08-08 17:53:51 +0000 |
---|---|---|
committer | Juanma Barranquero <lekktu@gmail.com> | 2005-08-08 17:53:51 +0000 |
commit | 28a205fe6dbda9b80840078b481c9e695e7441dd (patch) | |
tree | 6b9eecf4e609e6f2993772880d513f35fdabc9a8 /lisp/cmuscheme.el | |
parent | b3ff69c1c08e64f59b681bd3d28cc106a92b7a00 (diff) | |
download | emacs-28a205fe6dbda9b80840078b481c9e695e7441dd.tar.gz |
(scheme-start-file): Replace reference to `user-emacs-directory' by
"~/.emacs.d/".
Diffstat (limited to 'lisp/cmuscheme.el')
-rw-r--r-- | lisp/cmuscheme.el | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/lisp/cmuscheme.el b/lisp/cmuscheme.el index ff59304874d..19088e6b070 100644 --- a/lisp/cmuscheme.el +++ b/lisp/cmuscheme.el @@ -272,7 +272,7 @@ order. Return nil if no start file found." (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 @@ With a prefix argument switch off tracing of procedure PROC." (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 @@ For Scheme 48 and Scsh use \",expand %s\"." (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 @@ for a minimal, simple implementation. Feel free to extend it.") "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) |