Re: Emacs interaction mode for Guile

[Mikael Djurfeldt]

Mikael Djurfeldt <address@hidden> writes:

> Mikael Djurfeldt <address@hidden> writes:
> 
> >   http://kvast.blakulla.net/mdj/guileint-1.5.tgz
> 
> It appears that the Guile side of the emacs interaction mode has
> ceased to work in later versions of Guile.  I'll try to find out why.

OK, the problem was that somewhere in Guile-1.5, the Guile side of the
emacs interface ceased to be activated.  A patch is supplied below.
Also, I've put a new version of the interface with notes about this
and instructions when to apply the patch as:

  http://kvast.blakulla.net/mdj/guileint-1.5.1.tgz

NOTE: Somewhere in Guile 1.5, a bug was introduced in the Guile side
      of the Emacs interface.  This bug prevents the Emacs interface
      from being activated and also suppresses the Guile prompt if
      readline is activated.  A patch for Guile is supplied below:

Index: guile-readline/ChangeLog
===================================================================
RCS file: /cvsroot/guile/guile/guile-core/guile-readline/ChangeLog,v
retrieving revision 1.83
retrieving revision 1.84
diff -u -r1.83 -r1.84
--- guile-readline/ChangeLog    30 Apr 2002 07:41:43 -0000      1.83
+++ guile-readline/ChangeLog    21 Oct 2002 11:22:04 -0000      1.84
@@ -1,3 +1,8 @@
+2002-10-21  Mikael Djurfeldt  <address@hidden>
+
+       * readline.scm (activate-readline): Look for use-emacs-interface
+       option in the guile-user module instead of the-root-module.
+
 2002-04-30  Marius Vollmer  <address@hidden>
 
        * autogen.sh: Invoke plain aclocal instead of guile-aclocal.sh.
Index: guile-readline/readline.scm
===================================================================
RCS file: /cvsroot/guile/guile/guile-core/guile-readline/readline.scm,v
retrieving revision 1.18
retrieving revision 1.19
diff -u -r1.18 -r1.19
--- guile-readline/readline.scm 30 Jan 2002 00:03:39 -0000      1.18
+++ guile-readline/readline.scm 21 Oct 2002 11:22:04 -0000      1.19
@@ -1,6 +1,6 @@
 ;;;; readline.scm --- support functions for command-line editing
 ;;;;
-;;;;   Copyright (C) 1997, 1999, 2000, 2001 Free Software Foundation, Inc.
+;;;;   Copyright (C) 1997, 1999, 2000, 2001, 2002 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
@@ -199,8 +199,9 @@
 
 (define-public (activate-readline)
   (if (and (isatty? (current-input-port))
-          (not (and (module-defined? the-root-module 'use-emacs-interface)
-                    (module-ref the-root-module 'use-emacs-interface))))
+          (not (let ((guile-user-module (resolve-module '(guile-user))))
+                 (and (module-defined? guile-user-module 'use-emacs-interface)
+                      (module-ref guile-user-module 'use-emacs-interface)))))
       (let ((read-hook (lambda () (run-hook before-read-hook))))
        (set-current-input-port (readline-port))
        (set! repl-reader
Index: ice-9/ChangeLog
===================================================================
RCS file: /cvsroot/guile/guile/guile-core/ice-9/ChangeLog,v
retrieving revision 1.513
retrieving revision 1.514
diff -u -r1.513 -r1.514
--- ice-9/ChangeLog     9 Oct 2002 22:47:51 -0000       1.513
+++ ice-9/ChangeLog     20 Oct 2002 21:51:53 -0000      1.514
@@ -1,3 +1,9 @@
+2002-10-20  Mikael Djurfeldt  <address@hidden>
+
+       * boot-9.scm (top-repl): Look for use-emacs-interface in
+       guile-user-module (should it be there?) instead of
+       the-root-module.
+
 2002-10-10  Marius Vollmer  <address@hidden>
 
        * boot-9.scm (top-repl): Use 2 as the limit when saving the stack.
Index: ice-9/boot-9.scm
===================================================================
RCS file: /cvsroot/guile/guile/guile-core/ice-9/boot-9.scm,v
retrieving revision 1.287
retrieving revision 1.288
diff -u -r1.287 -r1.288
--- ice-9/boot-9.scm    9 Oct 2002 22:47:34 -0000       1.287
+++ ice-9/boot-9.scm    20 Oct 2002 21:51:16 -0000      1.288
@@ -2832,8 +2832,8 @@
   (let ((guile-user-module (resolve-module '(guile-user))))
 
     ;; Load emacs interface support if emacs option is given.
-    (if (and (module-defined? the-root-module 'use-emacs-interface)
-            (module-ref the-root-module 'use-emacs-interface))
+    (if (and (module-defined? guile-user-module 'use-emacs-interface)
+            (module-ref guile-user-module 'use-emacs-interface))
        (load-emacs-interface))
 
     ;; Use some convenient modules (in reverse order)