guile/guile-core/guile-readline ChangeLog readl...

[Mikael Djurfeldt]

CVSROOT:        /cvs
Module name:    guile
Branch:         branch_release-1-6
Changes by:     Mikael Djurfeldt <address@hidden>       03/04/05 10:50:48

Modified files:
        guile-core/guile-readline: ChangeLog readline.c 

Log message:
        * readline.c (redisplay): Removed. (It didn't do anything other
        than calling rl_redisplay.)
        (scm_init_readline): Don't inititalize rl_redisplay_function.

CVSWeb URLs:
http://savannah.gnu.org/cgi-bin/viewcvs/guile/guile-core/guile-readline/ChangeLog.diff?cvsroot=OldCVS&only_with_tag=branch_release-1-6&tr1=1.62.2.25&tr2=1.62.2.26&r1=text&r2=text
http://savannah.gnu.org/cgi-bin/viewcvs/guile/guile-core/guile-readline/readline.c.diff?cvsroot=OldCVS&only_with_tag=branch_release-1-6&tr1=1.38.2.2&tr2=1.38.2.3&r1=text&r2=text

Patches:
Index: guile/guile-core/guile-readline/ChangeLog
diff -c guile/guile-core/guile-readline/ChangeLog:1.89 
guile/guile-core/guile-readline/ChangeLog:1.90
*** guile/guile-core/guile-readline/ChangeLog:1.89      Wed Mar 19 18:46:35 2003
--- guile/guile-core/guile-readline/ChangeLog   Sat Apr  5 10:34:17 2003
***************
*** 1,3 ****
--- 1,15 ----
+ 2003-04-05  Mikael Djurfeldt  <address@hidden>
+ 
+       The intended side-effect of the following change is to make the
+       prompt appear properly when debugging or running Guile in an Emacs
+       buffer.  (The readline library has some prompt magic which we were
+       expected to do ourselves when we were bold enough to provide our
+       own redisplay function---but we don't need to do that.)
+       
+       * readline.c (redisplay): Removed. (It didn't do anything other
+       than calling rl_redisplay.)
+       (scm_init_readline): Don't inititalize rl_redisplay_function.
+ 
  2003-03-19  Rob Browning  <address@hidden>
  
        * readline.c: add HAVE_CONFIG_H test guarding #include config.h.
Index: guile/guile-core/guile-readline/readline.c
diff -c guile/guile-core/guile-readline/readline.c:1.47 
guile/guile-core/guile-readline/readline.c:1.48
*** guile/guile-core/guile-readline/readline.c:1.47     Wed Mar 19 18:46:29 2003
--- guile/guile-core/guile-readline/readline.c  Sat Apr  5 10:34:17 2003
***************
*** 1,6 ****
  /* readline.c --- line editing support for Guile */
  
! /* 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
--- 1,6 ----
  /* readline.c --- line editing support for Guile */
  
! /* Copyright (C) 1997,1999,2000,2001, 2002, 2003 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
***************
*** 144,156 ****
    return scm_getc (input_port);
  }
  
- static void
- redisplay ()
- {
-   rl_redisplay ();
-   /* promptp = 1; */
- }
- 
  static int in_readline = 0;
  static SCM reentry_barrier_mutex;
  
--- 144,149 ----
***************
*** 562,568 ****
  #ifndef __MINGW32__
    rl_getc_function = current_input_getc;
  #endif
-   rl_redisplay_function = redisplay;
  #if defined (_RL_FUNCTION_TYPEDEF)
    rl_completion_entry_function = (rl_compentry_func_t*) completion_function;
  #else  
--- 555,560 ----