aboutsummaryrefslogtreecommitdiffstats
path: root/src/lread.c
diff options
context:
space:
mode:
authorGlenn Morris2012-04-13 18:46:06 -0700
committerGlenn Morris2012-04-13 18:46:06 -0700
commit35dc09a19c606f9e7a078df32d030451c7c90ba1 (patch)
tree8df2ade99ad8620568094d61bba9dd4ac8856c43 /src/lread.c
parent327732d994c98849c765659aa2164a7482b6beab (diff)
parentad3a2b411dc2b34f5d6fa434aee3ca56fa7a88e7 (diff)
downloademacs-35dc09a19c606f9e7a078df32d030451c7c90ba1.tar.gz
emacs-35dc09a19c606f9e7a078df32d030451c7c90ba1.zip
Merge from emacs-24, up to 2012-04-10T02:06:19Z!larsi@gnus.org
Diffstat (limited to 'src/lread.c')
-rw-r--r--src/lread.c5
1 files changed, 2 insertions, 3 deletions
diff --git a/src/lread.c b/src/lread.c
index bfb37b4fc89..50465fd01e8 100644
--- a/src/lread.c
+++ b/src/lread.c
@@ -839,7 +839,7 @@ lisp_file_lexically_bound_p (Lisp_Object readcharfun)
839 } 839 }
840 840
841 /* Stop scanning if no colon was found before end marker. */ 841 /* Stop scanning if no colon was found before end marker. */
842 if (!in_file_vars) 842 if (!in_file_vars || ch == '\n' || ch == EOF)
843 break; 843 break;
844 844
845 while (i > 0 && (var[i - 1] == ' ' || var[i - 1] == '\t')) 845 while (i > 0 && (var[i - 1] == ' ' || var[i - 1] == '\t'))
@@ -863,8 +863,7 @@ lisp_file_lexically_bound_p (Lisp_Object readcharfun)
863 ch = READCHAR; 863 ch = READCHAR;
864 } 864 }
865 if (! in_file_vars) 865 if (! in_file_vars)
866 /* The value was terminated by an end-marker, which 866 /* The value was terminated by an end-marker, which remove. */
867 remove. */
868 i -= 3; 867 i -= 3;
869 while (i > 0 && (val[i - 1] == ' ' || val[i - 1] == '\t')) 868 while (i > 0 && (val[i - 1] == ' ' || val[i - 1] == '\t'))
870 i--; 869 i--;