guile/guile-core/guile-readline ChangeLog readl...

[Neil Jerram]

CVSROOT:        /cvs
Module name:    guile
Branch:         branch_release-1-6
Changes by:     Neil Jerram <address@hidden>    01/08/11 05:04:16

Modified files:
        guile-core/guile-readline: ChangeLog readline.scm 

Log message:
        * Added `call-with-readline-completion-function'.

CVSWeb URLs:
http://savannah.gnu.org/cgi-bin/viewcvs/guile/guile-core/guile-readline/ChangeLog.diff?cvsroot=OldCVS&only_with_tag=branch_release-1-6&tr1=1.62.2.2&tr2=1.62.2.3&r1=text&r2=text
http://savannah.gnu.org/cgi-bin/viewcvs/guile/guile-core/guile-readline/readline.scm.diff?cvsroot=OldCVS&only_with_tag=branch_release-1-6&tr1=1.13.4.1&tr2=1.13.4.2&r1=text&r2=text

Patches:
Index: guile/guile-core/guile-readline/ChangeLog
diff -u guile/guile-core/guile-readline/ChangeLog:1.64 
guile/guile-core/guile-readline/ChangeLog:1.65
--- guile/guile-core/guile-readline/ChangeLog:1.64      Thu Jul 19 13:23:03 2001
+++ guile/guile-core/guile-readline/ChangeLog   Thu Aug  2 12:45:07 2001
@@ -1,3 +1,7 @@
+2001-08-02  Neil Jerram  <address@hidden>
+
+       * readline.scm (call-with-readline-completion-function): New.
+
 2001-07-18  Martin Grabmueller  <address@hidden>
 
        * Makefile.am, readline.scm: Updated copyright notice.
Index: guile/guile-core/guile-readline/readline.scm
diff -u guile/guile-core/guile-readline/readline.scm:1.14 
guile/guile-core/guile-readline/readline.scm:1.15
--- guile/guile-core/guile-readline/readline.scm:1.14   Thu Jul 19 13:23:03 2001
+++ guile/guile-core/guile-readline/readline.scm        Thu Aug  2 12:45:07 2001
@@ -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)