unofficial mirror of guile-devel@gnu.org 
 help / color / mirror / Atom feed
From: Mikael Djurfeldt <mdj@kvast.blakulla.net>
Cc: guile-user@gnu.org,  guile-devel@gnu.org, erik@bacon.su.se,
	orre@bacon.su.se, Neil Jerram <neil@ossau.uklinux.net>
Subject: Re: Emacs interaction mode for Guile
Date: 21 Oct 2002 13:43:54 +0200	[thread overview]
Message-ID: <xy7hefg10g5.fsf@linnaeus.i-did-not-set--mail-host-address--so-shoot-me> (raw)
In-Reply-To: <xy7lm4t3uyy.fsf@linnaeus.i-did-not-set--mail-host-address--so-shoot-me>

Mikael Djurfeldt <mdj@kvast.blakulla.net> writes:

> Mikael Djurfeldt <mdj@kvast.blakulla.net> 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  <mdj@linnaeus>
+
+	* 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  <marius.vollmer@uni-dortmund.de>
 
 	* 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  <mdj@linnaeus>
+
+	* 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  <mvo@zagadka.ping.de>
 
 	* 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)


_______________________________________________
Guile-user mailing list
Guile-user@gnu.org
http://mail.gnu.org/mailman/listinfo/guile-user


  reply	other threads:[~2002-10-21 11:43 UTC|newest]

Thread overview: 4+ messages / expand[flat|nested]  mbox.gz  Atom feed  top
2002-10-20  9:29 Emacs interaction mode for Guile Mikael Djurfeldt
2002-10-20 17:01 ` Mikael Djurfeldt
2002-10-21 11:43   ` Mikael Djurfeldt [this message]
2002-12-01 18:06     ` Neil Jerram

Reply instructions:

You may reply publicly to this message via plain-text email
using any one of the following methods:

* Save the following mbox file, import it into your mail client,
  and reply-to-all from there: mbox

  Avoid top-posting and favor interleaved quoting:
  https://en.wikipedia.org/wiki/Posting_style#Interleaved_style

  List information: https://www.gnu.org/software/guile/

* Reply using the --to, --cc, and --in-reply-to
  switches of git-send-email(1):

  git send-email \
    --in-reply-to=xy7hefg10g5.fsf@linnaeus.i-did-not-set--mail-host-address--so-shoot-me \
    --to=mdj@kvast.blakulla.net \
    --cc=djurfeldt@nada.kth.se \
    --cc=erik@bacon.su.se \
    --cc=guile-devel@gnu.org \
    --cc=guile-user@gnu.org \
    --cc=neil@ossau.uklinux.net \
    --cc=orre@bacon.su.se \
    /path/to/YOUR_REPLY

  https://kernel.org/pub/software/scm/git/docs/git-send-email.html

* If your mail client supports setting the In-Reply-To header
  via mailto: links, try the mailto: link
Be sure your reply has a Subject: header at the top and a blank line before the message body. 
This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox;
as well as URLs for read-only IMAP folder(s) and NNTP newsgroup(s).