summaryrefslogtreecommitdiff
path: root/libguile/read.c
diff options
context:
space:
mode:
authorAndy Wingo <wingo@pobox.com>2015-01-22 12:50:18 +0100
committerAndy Wingo <wingo@pobox.com>2015-01-22 12:50:18 +0100
commit678995ff79be5c705c752ed2687c616c06da3a40 (patch)
treec3143db2a29f3a9f6c1d6cfcc5ac6ea4eb9e2666 /libguile/read.c
parent24d4f029bfdfe547c2a4598163c5c753d8796cfb (diff)
parent5af307de43e4b65eec7f235b48a8908f2a00f134 (diff)
downloadguile-678995ff79be5c705c752ed2687c616c06da3a40.tar.gz
Merge commit '5af307de43e4b65eec7f235b48a8908f2a00f134'
Conflicts: test-suite/tests/reader.test
Diffstat (limited to 'libguile/read.c')
-rw-r--r--libguile/read.c7
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)