mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-04-30 03:40:34 +02:00
Code Activity

* readline.scm (apropos-completion-function): Don't define and

Browse source 
install if the 'regex feature is missing.
This commit is contained in:
Mikael Djurfeldt 2000-06-12 14:54:30 +00:00
parent 69fc343a70
commit ebfa2cd5ca
1 changed files with 18 additions and 15 deletions
Download patch file Download diff file Expand all files Collapse all files

33
guile-readline/readline.scm
View file

@ -1,6 +1,6 @@
;;;; readline.scm --- support functions for command-line editing
;;;;
;;;; Copyright (C) 1997, 1999 Free Software Foundation, Inc.
;;;; Copyright (C) 1997, 1999, 2000 Free Software Foundation, Inc.
;;;;
;;;; This program is free software; you can redistribute it and/or modify
;;;; it under the terms of the GNU General Public License as published by
@ -148,21 +148,24 @@
(define-public (set-readline-read-hook! h)
(set! read-hook h))
(define-public apropos-completion-function
(let ((completions '()))
(lambda (text cont?)
(if (not cont?)
(set! completions
(map symbol->string
(apropos-internal (string-append "^"
(regexp-quote text))))))
(if (null? completions)
#f
(let ((retval (car completions)))
(begin (set! completions (cdr completions))
retval))))))
(if (feature? 'regex)
(begin
(define-public apropos-completion-function
(let ((completions '()))
(lambda (text cont?)
(if (not cont?)
(set! completions
(map symbol->string
(apropos-internal
(string-append "^" (regexp-quote text))))))
(if (null? completions)
#f
(let ((retval (car completions)))
(begin (set! completions (cdr completions))
retval))))))
(set! *readline-completion-function* apropos-completion-function)
(set! *readline-completion-function* apropos-completion-function)
))
(define-public (activate-readline)
(if (and (isatty? (current-input-port))