Mercurial > hg > xemacs-beta

comparison src/chartab.c @ 3025:facf3239ba30

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[xemacs-hg @ 2005-10-25 11:16:19 by ben] rename new->new_, convert 'foo to `foo' EmacsFrame.c, ExternalClient.c, ExternalShell.c, chartab.c, cmdloop.c, compiler.h, console.c, database.c, device-msw.c, device-x.c, device.c, doc.c, dragdrop.c, eval.c, event-msw.c, event-stream.c, events.c, extents.c, file-coding.c, fns.c, frame-tty.c, frame.c, gpmevent.c, gutter.c, hash.c, imgproc.c, indent.c, keymap.c, lisp-union.h, macros.c, malloc.c, marker.c, menubar-x.c, menubar.c, mule-charset.c, number.c, process.c, profile.h, ralloc.c, redisplay.c, select-common.h, select.c, syntax.c, sysfile.h, sysproc.h, systime.h, syswindows.h, toolbar.c, tooltalk.c, tparam.c, unexaix.c, unexalpha.c, unexconvex.c, unexec.c, unexhp9k800.c, unexmips.c, unicode.c, window.c: new -> new_. 'foo -> `foo'. lwlib-internal.h: redo assert macros to follow lisp.h and not trigger warnings. lwlib.c, xlwtabs.c: new -> new_.
author ben
date Tue, 25 Oct 2005 11:16:49 +0000
parents 1e7cc382eb16
children d830788d6a2c 3742ea8250b5
comparison
equal deleted inserted replaced
3024:b7f26b2f78bd 3025:facf3239ba30
641 Lisp_Char_Table_Entry *ctenew = 641 Lisp_Char_Table_Entry *ctenew =
642 ALLOC_LCRECORD_TYPE (Lisp_Char_Table_Entry, &lrecord_char_table_entry); 642 ALLOC_LCRECORD_TYPE (Lisp_Char_Table_Entry, &lrecord_char_table_entry);
643 643
644 for (i = 0; i < 96; i++) 644 for (i = 0; i < 96; i++)
645 { 645 {
646 Lisp_Object new = cte->level2[i]; 646 Lisp_Object new_ = cte->level2[i];
647 if (CHAR_TABLE_ENTRYP (new)) 647 if (CHAR_TABLE_ENTRYP (new_))
648 ctenew->level2[i] = copy_char_table_entry (new); 648 ctenew->level2[i] = copy_char_table_entry (new_);
649 else 649 else
650 ctenew->level2[i] = new; 650 ctenew->level2[i] = new_;
651 } 651 }
652 652
653 return wrap_char_table_entry (ctenew); 653 return wrap_char_table_entry (ctenew);
654 } 654 }
655 655
675 ctnew->mirror_table_p = ct->mirror_table_p; 675 ctnew->mirror_table_p = ct->mirror_table_p;
676 obj = wrap_char_table (ctnew); 676 obj = wrap_char_table (ctnew);
677 677
678 for (i = 0; i < NUM_ASCII_CHARS; i++) 678 for (i = 0; i < NUM_ASCII_CHARS; i++)
679 { 679 {
680 Lisp_Object new = ct->ascii[i]; 680 Lisp_Object new_ = ct->ascii[i];
681 #ifdef MULE 681 #ifdef MULE
682 assert (! (CHAR_TABLE_ENTRYP (new))); 682 assert (! (CHAR_TABLE_ENTRYP (new_)));
683 #endif /* MULE */ 683 #endif /* MULE */
684 ctnew->ascii[i] = new; 684 ctnew->ascii[i] = new_;
685 } 685 }
686 686
687 #ifdef MULE 687 #ifdef MULE
688 688
689 for (i = 0; i < NUM_LEADING_BYTES; i++) 689 for (i = 0; i < NUM_LEADING_BYTES; i++)
690 { 690 {
691 Lisp_Object new = ct->level1[i]; 691 Lisp_Object new_ = ct->level1[i];
692 if (CHAR_TABLE_ENTRYP (new)) 692 if (CHAR_TABLE_ENTRYP (new_))
693 ctnew->level1[i] = copy_char_table_entry (new); 693 ctnew->level1[i] = copy_char_table_entry (new_);
694 else 694 else
695 ctnew->level1[i] = new; 695 ctnew->level1[i] = new_;
696 } 696 }
697 697
698 #endif /* MULE */ 698 #endif /* MULE */
699 699
700 if (!ct->mirror_table_p && CHAR_TABLEP (ct->mirror_table)) 700 if (!ct->mirror_table_p && CHAR_TABLEP (ct->mirror_table))