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) |
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")) |
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 () |
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) |