diff options
| author | Andy Wingo <wingo@pobox.com> | 2014-04-14 16:12:14 +0200 |
|---|---|---|
| committer | Andy Wingo <wingo@pobox.com> | 2014-04-14 16:12:14 +0200 |
| commit | b27ad2f394c5e4465f5cdee748534d013919cfa1 (patch) | |
| tree | 1384b6534c6ac5da7da3884f0927487263c34812 /guile-readline | |
| parent | 0ece4850c5423d53db3245f57681053486327aa3 (diff) | |
Readline history preserves newlines
* guile-readline/ice-9/readline.scm (make-readline-port): Preserve
newlines. This preserves the semantics of history entries that
contain until-end-of-line comments using `;'.
Diffstat (limited to 'guile-readline')
| -rw-r--r-- | guile-readline/ice-9/readline.scm | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/guile-readline/ice-9/readline.scm b/guile-readline/ice-9/readline.scm index a9f7cdc6d..cfaaef362 100644 --- a/guile-readline/ice-9/readline.scm +++ b/guile-readline/ice-9/readline.scm @@ -1,6 +1,6 @@ ;;;; readline.scm --- support functions for command-line editing ;;;; -;;;; Copyright (C) 1997, 1999, 2000, 2001, 2002, 2006, 2009, 2010, 2011 Free Software Foundation, Inc. +;;;; Copyright (C) 1997, 1999, 2000, 2001, 2002, 2006, 2009, 2010, 2011, 2014 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 @@ -105,7 +105,7 @@ (set! history-buffer (if history-buffer (string-append history-buffer - " " + "\n" str) str))) str))))) |