Mercurial > emacs
comparison src/lread.c @ 47184:04a4d5eda995
(read1): Handle #! by skipping the line.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Sun, 01 Sep 2002 13:33:08 +0000 |
| parents | 3bd4234e0844 |
| children | 8d4ba9addc8e |
comparison
equal
deleted
inserted
replaced
| 47183:865837df3fe7 | 47184:04a4d5eda995 |
|---|---|
| 2094 /* Skip that many characters. */ | 2094 /* Skip that many characters. */ |
| 2095 for (i = 0; i < nskip && c >= 0; i++) | 2095 for (i = 0; i < nskip && c >= 0; i++) |
| 2096 c = READCHAR; | 2096 c = READCHAR; |
| 2097 } | 2097 } |
| 2098 | 2098 |
| 2099 goto retry; | |
| 2100 } | |
| 2101 if (c == '!') | |
| 2102 { | |
| 2103 /* #! appears at the beginning of an executable file. | |
| 2104 Skip the first line. */ | |
| 2105 while (c != '\n') | |
| 2106 c = READCHAR; | |
| 2099 goto retry; | 2107 goto retry; |
| 2100 } | 2108 } |
| 2101 if (c == '$') | 2109 if (c == '$') |
| 2102 return Vload_file_name; | 2110 return Vload_file_name; |
| 2103 if (c == '\'') | 2111 if (c == '\'') |