From: Jose Antonio Ortega Ruiz <jao@gnu.org>
Date: Tue, 22 Jan 2013 16:21:00 +0000 (+0100)
Subject: Using comint-dynamic-complete-filename
X-Git-Tag: 0.4~43
X-Git-Url: https://repo.or.cz/w/geiser.git/commitdiff_plain/9cdd48af25b299c32adb7dd1ddd025a5bc6fd1cf

Using comint-dynamic-complete-filename

.. which seems to be available also in emacs 23.2 (although reports as
to whether it works are mixed), and has better behaviour anyways.
---

diff --git a/elisp/geiser-completion.el b/elisp/geiser-completion.el
index 94de459..6459bb1 100644
--- a/elisp/geiser-completion.el
+++ b/elisp/geiser-completion.el
@@ -150,7 +150,8 @@ we're looking for a module name.")
 
 (defun geiser-completion--for-filename ()
   (when (geiser-syntax--in-string-p)
-    (comint-filename-completion)))
+    (let ((comint-completion-addsuffix "\""))
+      (comint-dynamic-complete-filename))))
 
 (defun geiser-completion--setup (enable)
   (set (make-local-variable 'completion-at-point-functions)