[Emacs-diffs] Changes to emacs/src/lread.c

[Richard M. Stallman]

Index: emacs/src/lread.c
diff -c emacs/src/lread.c:1.296 emacs/src/lread.c:1.297
*** emacs/src/lread.c:1.296     Fri Aug 23 23:17:18 2002
--- emacs/src/lread.c   Sun Sep  1 09:33:08 2002
***************
*** 2098,2103 ****
--- 2098,2111 ----
  
          goto retry;
        }
+       if (c == '!')
+       {
+         /* #! appears at the beginning of an executable file.
+            Skip the first line.  */
+         while (c != '\n')
+           c = READCHAR;
+         goto retry;
+       }
        if (c == '$')
        return Vload_file_name;
        if (c == '\'')