summaryrefslogtreecommitdiff
path: root/elisp/geiser-eval.el
diff options
context:
space:
mode:
authorJose Antonio Ortega Ruiz <jao@gnu.org>2009-02-10 15:12:31 +0100
committerJose Antonio Ortega Ruiz <jao@gnu.org>2009-02-10 15:12:31 +0100
commit710d1f8be59066f0b52d07b0f43343b3ab671ffa (patch)
treed5abfc54dc8ba242e7b020d471f57cd664baaf99 /elisp/geiser-eval.el
parent8b2b6e02b5a7ceaf7b6f91dd302a42141c4ade8a (diff)
downloadgeiser-guile-710d1f8be59066f0b52d07b0f43343b3ab671ffa.tar.gz
geiser-guile-710d1f8be59066f0b52d07b0f43343b3ab671ffa.tar.bz2
Sort completion list in scheme's side.
Diffstat (limited to 'elisp/geiser-eval.el')
-rw-r--r--elisp/geiser-eval.el13
1 files changed, 8 insertions, 5 deletions
diff --git a/elisp/geiser-eval.el b/elisp/geiser-eval.el
index ee04139..38b1f7f 100644
--- a/elisp/geiser-eval.el
+++ b/elisp/geiser-eval.el
@@ -79,6 +79,12 @@
(defun geiser-eval--set-sync-retort (s)
(setq geiser-eval--sync-retort (geiser-eval--log s)))
+(defsubst geiser-eval--send (code cont &optional buffer)
+ (geiser-con--send-string (geiser-eval--proc)
+ (geiser-eval--code-str code)
+ `(lambda (s) (,cont (geiser-eval--log s)))
+ buffer))
+
(defun geiser-eval--send/wait (code &optional timeout buffer)
(setq geiser-eval--sync-retort nil)
(geiser-con--send-string/wait (geiser-eval--proc)
@@ -88,11 +94,8 @@
buffer)
geiser-eval--sync-retort)
-(defsubst geiser-eval--send (code cont &optional buffer)
- (geiser-con--send-string (geiser-eval--proc)
- (geiser-eval--code-str code)
- `(lambda (s) (,cont (geiser-eval--log s)))
- buffer))
+(defsubst geiser-eval--send/result (code &optional timeout buffer)
+ (geiser-eval--retort-result (geiser-eval--send/wait code timeout buffer)))
;;; Retort parsing: