Mercurial > hg > xemacs-beta

comparison lib-src/make-docfile.c @ 82:6a378aca36af r20-0b91

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-0b91
author cvs
date Mon, 13 Aug 2007 09:07:36 +0200
parents 131b0175ea99
children a145efe76779
comparison
equal deleted inserted replaced
81:ebca3d831cea 82:6a378aca36af
825 { 825 {
826 826
827 /* Skip until the first newline; remember the two previous chars. */ 827 /* Skip until the first newline; remember the two previous chars. */
828 while (c != '\n' && c >= 0) 828 while (c != '\n' && c >= 0)
829 { 829 {
830 /* ### Kludge -- Ignore any ESC x x ISO2022 sequences */
831 if (c == 27)
832 {
833 getc (infile);
834 getc (infile);
835 goto nextchar;
836 }
837
830 c2 = c1; 838 c2 = c1;
831 c1 = c; 839 c1 = c;
840 nextchar:
832 c = getc (infile); 841 c = getc (infile);
833 } 842 }
834 843
835 /* If two previous characters were " and \, 844 /* If two previous characters were " and \,
836 this is a doc string. Otherwise, there is none. */ 845 this is a doc string. Otherwise, there is none. */
958 continue; 967 continue;
959 } 968 }
960 } 969 }
961 } 970 }
962 971
963 #ifdef DEBUG 972 #if 0 /* causes crash */
964 else if (! strcmp (buffer, "if") || 973 else if (! strcmp (buffer, "if") ||
965 ! strcmp (buffer, "byte-code")) 974 ! strcmp (buffer, "byte-code"))
966 ; 975 ;
967 #endif 976 #endif
968 977