diff options
author | Andy Wingo <wingo@pobox.com> | 2015-01-22 12:50:18 +0100 |
---|---|---|
committer | Andy Wingo <wingo@pobox.com> | 2015-01-22 12:50:18 +0100 |
commit | 678995ff79be5c705c752ed2687c616c06da3a40 (patch) | |
tree | c3143db2a29f3a9f6c1d6cfcc5ac6ea4eb9e2666 /libguile/read.c | |
parent | 24d4f029bfdfe547c2a4598163c5c753d8796cfb (diff) | |
parent | 5af307de43e4b65eec7f235b48a8908f2a00f134 (diff) | |
download | guile-678995ff79be5c705c752ed2687c616c06da3a40.tar.gz |
Merge commit '5af307de43e4b65eec7f235b48a8908f2a00f134'
Conflicts:
test-suite/tests/reader.test
Diffstat (limited to 'libguile/read.c')
-rw-r--r-- | libguile/read.c | 7 |
1 files changed, 5 insertions, 2 deletions
diff --git a/libguile/read.c b/libguile/read.c index c2d50afdf..ecf27ff6e 100644 --- a/libguile/read.c +++ b/libguile/read.c @@ -1,5 +1,5 @@ -/* Copyright (C) 1995, 1996, 1997, 1999, 2000, 2001, 2003, 2004, 2006, - * 2007, 2008, 2009, 2010, 2011, 2012, 2014 Free Software Foundation, Inc. +/* Copyright (C) 1995-1997, 1999-2001, 2003, 2004, 2006-2012, 2014 + * Free Software Foundation, Inc. * * This library is free software; you can redistribute it and/or * modify it under the terms of the GNU Lesser General Public License @@ -640,6 +640,9 @@ scm_read_string_like_syntax (int chr, SCM port, scm_t_read_opts *opts) goto str_eof; case '|': case '\\': + case '(': /* Accept "\(" for use at the beginning of lines + in multiline strings to avoid confusing emacs + lisp modes. */ break; case '\n': if (opts->hungry_eol_escapes_p) |