Mercurial > emacs
changeset 64786:871d0952aeb3
(scheme-start-file): Replace reference to `user-emacs-directory' by
"~/.emacs.d/".
| author | Juanma Barranquero <lekktu@gmail.com> |
|---|---|
| date | Mon, 08 Aug 2005 17:53:51 +0000 |
| parents | f55bcc082f4a |
| children | d3ba08ae337e |
| files | lisp/cmuscheme.el |
| diffstat | 1 files changed, 5 insertions(+), 5 deletions(-) [+] |
line wrap: on
line diff
--- 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)