Mercurial > hg > xemacs-beta

comparison lib-src/make-docfile.c @ 1618:1038bc1b8cb9

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[xemacs-hg @ 2003-08-12 14:47:07 by james] Andrew Begel's patch to make newlines prettier in DOC.
author james
date Tue, 12 Aug 2003 14:47:07 +0000
parents 184461bc8de4
children 04bc9d2f42c7
comparison
equal deleted inserted replaced
1617:000fb15e7f54 1618:1038bc1b8cb9
20 You should have received a copy of the GNU General Public License 20 You should have received a copy of the GNU General Public License
21 along with XEmacs; see the file COPYING. If not, write to 21 along with XEmacs; see the file COPYING. If not, write to
22 the Free Software Foundation, Inc., 59 Temple Place - Suite 330, 22 the Free Software Foundation, Inc., 59 Temple Place - Suite 330,
23 Boston, MA 02111-1307, USA. */ 23 Boston, MA 02111-1307, USA. */
24 24
25 /* Synched up with: FSF 21.2. */ 25 /* Synched up with: FSF 21.3. */
26 26
27 /* The arguments given to this program are all the C and Lisp source files 27 /* The arguments given to this program are all the C and Lisp source files
28 of XEmacs. .elc and .el and .c files are allowed. 28 of XEmacs. .elc and .el and .c files are allowed.
29 A .o or .obj file can also be specified; the .c file it was made from is used. 29 A .o or .obj file can also be specified; the .c file it was made from is used.
30 This helps the makefile pass the correct list of files. 30 This helps the makefile pass the correct list of files.
561 /* Print the C argument list as it would appear in lisp: 561 /* Print the C argument list as it would appear in lisp:
562 print underscores as hyphens, and print commas and newlines 562 print underscores as hyphens, and print commas and newlines
563 as spaces. Collapse adjacent spaces into one. */ 563 as spaces. Collapse adjacent spaces into one. */
564 if (c == '_') 564 if (c == '_')
565 c = '-'; 565 c = '-';
566 else if (c == ',' || c == '\n') 566 else if (c == ',' /* || c == '\n' */)
567 c = ' '; 567 c = ' ';
568 /* XEmacs change: handle \n below for readability */
568 569
569 #if 0 570 #if 0
570 /* In C code, `default' is a reserved word, so we spell it 571 /* In C code, `default' is a reserved word, so we spell it
571 `defalt'; unmangle that here. */ 572 `defalt'; unmangle that here. */
572 if (ident_start 573 if (ident_start
586 to allow use of C reserved words or global symbols as Lisp args. */ 587 to allow use of C reserved words or global symbols as Lisp args. */
587 if (c == '-' && ! C_IDENTIFIER_CHAR_P (p[1])) 588 if (c == '-' && ! C_IDENTIFIER_CHAR_P (p[1]))
588 { 589 {
589 in_ident = 0; 590 in_ident = 0;
590 just_spaced = 0; 591 just_spaced = 0;
592 }
593 /* XEmacs change: if the character is carriage return or linefeed,
594 escape it for the compiler */
595 else if (c == '\n')
596 {
597 putc('\\', out);
598 putc('\n', out);
599 }
600 else if (c == '\r')
601 {
602 putc('\\', out);
603 putc('\r', out);
591 } 604 }
592 else if (c != ' ' || !just_spaced) 605 else if (c != ' ' || !just_spaced)
593 { 606 {
594 if (c >= 'a' && c <= 'z') 607 if (c >= 'a' && c <= 'z')
595 /* Upcase the letter. */ 608 /* Upcase the letter. */