* Added `call-with-readline-completion-function'.

diff --git a/guile-readline/ChangeLog b/guile-readline/ChangeLog
index e431af5..aba59dc 100644 (file)
--- a/guile-readline/ChangeLog
+++ b/guile-readline/ChangeLog
@@ -1,3 +1,7 @@
+2001-08-02  Neil Jerram  <neil@ossau.uklinux.net>
+
+       * readline.scm (call-with-readline-completion-function): New.
+
 2001-07-18  Martin Grabmueller  <mgrabmue@cs.tu-berlin.de>
 
        * Makefile.am, readline.scm: Updated copyright notice.

diff --git a/guile-readline/readline.scm b/guile-readline/readline.scm
index 24f9de5..99e63bc 100644 (file)
--- a/guile-readline/readline.scm
+++ b/guile-readline/readline.scm
@@ -187,6 +187,16 @@
       (set! *readline-completion-function* apropos-completion-function)
       ))
 
+(define-public (call-with-readline-completion-function completer thunk)
+  "With @var{completer} as readline completion function, call @var{thunk}."
+  (let ((old-completer *readline-completion-function*))
+    (dynamic-wind
+       (lambda ()
+         (set! *readline-completion-function* completer))
+       thunk
+       (lambda ()
+         (set! *readline-completion-function* old-completer)))))
+
 (define-public (activate-readline)
   (if (and (isatty? (current-input-port))
           (not (and (module-defined? the-root-module 'use-emacs-interface)