From 85e02446e1c721049d789c4d2f86d6bf96f46c26 Mon Sep 17 00:00:00 2001
From: Jose Antonio Ortega Ruiz <jao@gnu.org>
Date: Wed, 20 May 2009 22:40:36 +0200
Subject: Fixes for module names reading and evaluation result display.

---
 elisp/geiser-completion.el | 13 ++++++-------
 elisp/geiser-debug.el      |  2 +-
 elisp/geiser-edit.el       |  2 +-
 elisp/geiser-guile.el      |  5 -----
 4 files changed, 8 insertions(+), 14 deletions(-)

(limited to 'elisp')

diff --git a/elisp/geiser-completion.el b/elisp/geiser-completion.el
index f8449a6..dadf6dd 100644
--- a/elisp/geiser-completion.el
+++ b/elisp/geiser-completion.el
@@ -184,13 +184,12 @@ terminates a current completion."
 
 (defun geiser-completion--read-module (&optional prompt default history)
   (let ((minibuffer-local-completion-map geiser-completion--module-minibuffer-map))
-    (geiser-eval--get-module
-     (completing-read (or prompt "Module name: ")
-                      geiser-completion--module-list-func
-                      nil nil nil
-                      (or history geiser-completion--module-history)
-                      (or default
-                          (format "%s" (or (geiser-syntax--buffer-module) "")))))))
+    (completing-read (or prompt "Module name: ")
+                     geiser-completion--module-list-func
+                     nil nil nil
+                     (or history geiser-completion--module-history)
+                     (or default
+                         (format "%s" (or (geiser-syntax--buffer-module) ""))))))
 
 (defun geiser--respecting-message (format &rest format-args)
   "Display TEXT as a message, without hiding any minibuffer contents."
diff --git a/elisp/geiser-debug.el b/elisp/geiser-debug.el
index 0573716..bc155c9 100644
--- a/elisp/geiser-debug.el
+++ b/elisp/geiser-debug.el
@@ -62,7 +62,7 @@
       (when output (insert output "\n\n"))
       (when stack (geiser-debug--display-stack stack))
       (goto-char (point-min)))
-    (when (or err output) (geiser-debug--pop-to-buffer))))
+    (when err (geiser-debug--pop-to-buffer))))
 
 (defsubst geiser-debug--frame-proc (frame) (cdr (assoc 'procedure frame)))
 (defsubst geiser-debug--frame-desc (frame) (cdr (assoc 'description frame)))
diff --git a/elisp/geiser-edit.el b/elisp/geiser-edit.el
index c02e7bb..986099e 100644
--- a/elisp/geiser-edit.el
+++ b/elisp/geiser-edit.el
@@ -145,7 +145,7 @@ With prefix, asks for the symbol to edit."
 (defun geiser-edit-module (module)
   "Asks for a module and opens it in a new buffer."
   (interactive (list (geiser-completion--read-module)))
-  (let ((cmd `(:eval ((:ge module-location) ,module))))
+  (let ((cmd `(:eval ((:ge module-location) (:module ,module)))))
     (geiser-edit--try-edit module (geiser-eval--send/wait cmd))))
 
 
diff --git a/elisp/geiser-guile.el b/elisp/geiser-guile.el
index f4362ca..e6e0c9a 100644
--- a/elisp/geiser-guile.el
+++ b/elisp/geiser-guile.el
@@ -85,9 +85,6 @@ This function uses `geiser-guile-init-file' if it exists."
 ;;; Evaluation support:
 
 (defun geiser-guile-geiser-procedure (proc)
-  "Translate a bare procedure symbol to one executable in Guile's
-context. Return NULL for unsupported ones; at the very least,
-EVAL, COMPILE, LOAD-FILE and COMPILE-FILE should be supported."
   (let ((proc (intern (format "ge:%s"
                               (if (and geiser-guile-use-compiler-in-eval
                                        (eq proc 'eval))
@@ -99,8 +96,6 @@ EVAL, COMPILE, LOAD-FILE and COMPILE-FILE should be supported."
   "(define-module +\\(([^)]+)\\)")
 
 (defun geiser-guile-get-module (&optional module)
-  "Return a scheme datum representing the current module.
-If MODULE is provided, transform it to such a datum."
   (cond ((null module)
          (save-excursion
            (goto-char (point-min))
-- 
cgit v1.2.3