Mercurial > hg > xemacs-beta

comparison src/rangetab.c @ 2425:b3315b0c8558

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[xemacs-hg @ 2004-12-06 23:27:15 by ben] fix rangetab.c rangetab.c: Fix compile error.
author ben
date Mon, 06 Dec 2004 23:27:32 +0000
parents ab71ad6ff3dd
children 3d8143fc88e1
comparison
equal deleted inserted replaced
2424:c164e88b1977 2425:b3315b0c8558
643 } 643 }
644 644
645 static Lisp_Object 645 static Lisp_Object
646 rangetab_instantiate (Lisp_Object plist) 646 rangetab_instantiate (Lisp_Object plist)
647 { 647 {
648 Lisp_Object data = Qnil, type = Qnil; 648 Lisp_Object data = Qnil, type = Qnil, rangetab;
649 649
650 PROPERTY_LIST_LOOP_3 (key, value, plist) 650 PROPERTY_LIST_LOOP_3 (key, value, plist)
651 { 651 {
652 if (EQ (key, Qtype)) type = value; 652 if (EQ (key, Qtype)) type = value;
653 else if (EQ (key, Qdata)) data = value; 653 else if (EQ (key, Qdata)) data = value;
654 else 654 else
655 abort (); 655 abort ();
656 } 656 }
657 657
658 Lisp_Object rangetab = Fmake_range_table (type); 658 rangetab = Fmake_range_table (type);
659 659
660 { 660 {
661 PROPERTY_LIST_LOOP_3 (range, val, data) 661 PROPERTY_LIST_LOOP_3 (range, val, data)
662 { 662 {
663 if (CONSP (range)) 663 if (CONSP (range))