Mercurial > hg > xemacs-beta

comparison src/chartab.c @ 3881:1b6a5c6e012d

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[xemacs-hg @ 2007-03-25 17:05:51 by stephent] Fix syntax for Lisp object comparison. <874po9w8m7.fsf@uwakimon.sk.tsukuba.ac.jp>
author stephent
date Sun, 25 Mar 2007 17:05:55 +0000
parents f73b455b1472
children c661944aa259
comparison
equal deleted inserted replaced
3880:4035bd42c75e 3881:1b6a5c6e012d
696 ctnew->level1[i] = new_; 696 ctnew->level1[i] = new_;
697 } 697 }
698 698
699 #endif /* MULE */ 699 #endif /* MULE */
700 700
701 if (ct->mirror_table != Qnil) 701 if (!EQ (ct->mirror_table, Qnil))
702 { 702 {
703 ctnew->mirror_table = Fmake_char_table (Qgeneric); 703 ctnew->mirror_table = Fmake_char_table (Qgeneric);
704 set_char_table_default (ctnew->mirror_table, make_int (Sword)); 704 set_char_table_default (ctnew->mirror_table, make_int (Sword));
705 XCHAR_TABLE (ctnew->mirror_table)->mirror_table = obj; 705 XCHAR_TABLE (ctnew->mirror_table)->mirror_table = obj;
706 XCHAR_TABLE (ctnew->mirror_table)->mirror_table_p = 1; 706 XCHAR_TABLE (ctnew->mirror_table)->mirror_table_p = 1;