[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
Re: Setting the readline prompt ...
From: |
Neil Jerram |
Subject: |
Re: Setting the readline prompt ... |
Date: |
08 Jan 2003 21:35:07 +0000 |
User-agent: |
Gnus/5.0808 (Gnus v5.8.8) Emacs/20.7 |
>>>>> "Neil" == Neil Jerram <address@hidden> writes:
Neil> You can see the effect of set-readline-prompt! like this:
guile> (begin (set-readline-prompt! "1> " "2> ") (readline))
1> something
Neil> "something"
guile> (begin (set-readline-prompt! "1> " "2> ") (read))
2> something
Neil> something
Er... except that there's a bug for which I'm just about the commit
the fix:
Index: readline.c
===================================================================
RCS file: /cvsroot/guile/guile/guile-core/guile-readline/readline.c,v
retrieving revision 1.45
diff -u -r1.45 readline.c
--- readline.c 3 Nov 2002 22:09:20 -0000 1.45
+++ readline.c 8 Jan 2003 21:31:32 -0000
@@ -184,7 +184,7 @@
SCM_EOL);
}
- if (!((SCM_UNBNDP (outp) && SCM_OPINFPORTP (scm_cur_outp))
+ if (!((SCM_UNBNDP (outp) && SCM_OPOUTFPORTP (scm_cur_outp))
|| SCM_OPOUTFPORTP (outp)))
{
--in_readline;
Marius/Rob, should this go into the stable branch as well?
The symptom without this fix is:
guile> (readline)
ERROR: In procedure %readline:
ERROR: Output port is not open or not a file port
ABORT: (misc-error)
Neil