Lines Matching +defs:send +defs:sexp
35 ;; Please send me bug reports, bug fixes, and extensions, so that I can
47 ;; the single letter command keys to emacs functions that directly send the
80 ;;; - Upgraded to use comint-send-string and comint-send-region.
86 ;;; - Added scheme-send-last-sexp, bound to C-x C-e. A gnu convention.
115 (define-key m "\M-\C-x" 'scheme-send-definition) ;gnu convention
116 (define-key m "\C-x\C-e" 'scheme-send-last-sexp)
123 (define-key scheme-mode-map "\M-\C-x" 'scheme-send-definition);gnu convention
124 (define-key scheme-mode-map "\C-x\C-e" 'scheme-send-last-sexp);gnu convention
125 (define-key scheme-mode-map "\C-c\C-e" 'scheme-send-definition)
126 (define-key scheme-mode-map "\C-c\M-e" 'scheme-send-definition-and-go)
127 (define-key scheme-mode-map "\C-c\C-r" 'scheme-send-region)
128 (define-key scheme-mode-map "\C-c\M-r" 'scheme-send-region-and-go)
153 (define-key map [send-def-go]
154 '("Evaluate Last Definition & Go" . scheme-send-definition-and-go))
155 (define-key map [send-def]
156 '("Evaluate Last Definition" . scheme-send-definition))
157 (define-key map [send-region-go]
158 '("Evaluate Region & Go" . scheme-send-region-and-go))
159 (define-key map [send-region]
160 '("Evaluate Region" . scheme-send-region))
161 (define-key map [send-sexp]
162 '("Evaluate Last S-expression" . scheme-send-last-sexp))
178 You can send text to the inferior Scheme process from other buffers containing
181 scheme-send-definition sends the current definition to the Scheme process.
183 scheme-send-region sends the current region to the Scheme process.
186 scheme-send-definition-and-go, scheme-compile-definition-and-go,
187 scheme-send-region-and-go, and scheme-compile-region-and-go
195 Return before the end of the process' output copies the sexp ending at point
222 "Snarf the sexp ending at point."
225 (backward-sexp)
279 (defun scheme-send-region (start end)
282 (comint-send-region (scheme-proc) start end)
283 (comint-send-string (scheme-proc) "\n"))
285 (defun scheme-send-definition ()
292 (scheme-send-region (point) end))))
294 (defun scheme-send-last-sexp ()
295 "Send the previous sexp to the inferior Scheme process."
297 (scheme-send-region (save-excursion (backward-sexp) (point)) (point)))
308 (comint-send-string (scheme-proc) (format scheme-compile-exp-command
311 (comint-send-string (scheme-proc) "\n"))
352 (comint-send-string (scheme-proc)
356 (comint-send-string (scheme-proc) "\n"))
370 (comint-send-string (scheme-proc)
374 (comint-send-string (scheme-proc) "\n"))
378 (let ((next-sexp (thing-at-point 'sexp)))
379 (if (and next-sexp (string-equal (substring next-sexp 0 1) "("))
380 next-sexp
397 (defun scheme-send-region-and-go (start end)
401 (scheme-send-region start end)
404 (defun scheme-send-definition-and-go ()
408 (scheme-send-definition)
447 (comint-send-string (scheme-proc) (concat "(load \""
461 (comint-send-string (scheme-proc) (concat "(compile-file \""
478 Commands that send text from source buffers to Scheme processes --
479 like `scheme-send-definition' or `scheme-compile-region' -- have to choose a
480 process to send to, when you have more than one Scheme process around. This
487 If you do a \\[scheme-send-definition-and-go] command on some Scheme source
488 code, what process do you send it to?
491 you send it to that process.
493 send it to the process attached to buffer `scheme-buffer'.