[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
guile/guile-core/guile-readline readline.scm Ch...
From: |
Neil Jerram |
Subject: |
guile/guile-core/guile-readline readline.scm Ch... |
Date: |
Thu, 02 Aug 2001 12:45:07 -0700 |
CVSROOT: /cvs
Module name: guile
Changes by: Neil Jerram <address@hidden> 01/08/02 12:45:07
Modified files:
guile-core/guile-readline: readline.scm ChangeLog
Log message:
* Added `call-with-readline-completion-function'.
CVSWeb URLs:
http://savannah.gnu.org/cgi-bin/viewcvs/guile/guile-core/guile-readline/readline.scm.diff?cvsroot=OldCVS&tr1=1.14&tr2=1.15&r1=text&r2=text
http://savannah.gnu.org/cgi-bin/viewcvs/guile/guile-core/guile-readline/ChangeLog.diff?cvsroot=OldCVS&tr1=1.64&tr2=1.65&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)
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- guile/guile-core/guile-readline readline.scm Ch...,
Neil Jerram <=