From f90bcd2ea4235ce3c678a343fc16fb1187909b8d Mon Sep 17 00:00:00 2001 From: Neil Jerram Date: Sat, 11 Aug 2001 12:04:16 +0000 Subject: [PATCH] * Added `call-with-readline-completion-function'. --- guile-readline/ChangeLog | 4 ++++ guile-readline/readline.scm | 10 ++++++++++ 2 files changed, 14 insertions(+) diff --git a/guile-readline/ChangeLog b/guile-readline/ChangeLog index e431af5bf..0b563a554 100644 --- a/guile-readline/ChangeLog +++ b/guile-readline/ChangeLog @@ -1,3 +1,7 @@ +2001-08-11 Neil Jerram + + * readline.scm (call-with-readline-completion-function): New. + 2001-07-18 Martin Grabmueller * Makefile.am, readline.scm: Updated copyright notice. diff --git a/guile-readline/readline.scm b/guile-readline/readline.scm index 24f9de58f..99e63bce0 100644 --- 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)