comparison src/mule-canna.c @ 272:c5d627a313b1 r21-0b34

Import from CVS: tag r21-0b34
author cvs
date Mon, 13 Aug 2007 10:28:48 +0200
parents 11cf20601dec
children 9ea74add5d37
comparison
equal deleted inserted replaced
271:c7b7086b0a39 272:c5d627a313b1
796 { 796 {
797 endp = res = Fcons (make_string (p, slen), Qnil); 797 endp = res = Fcons (make_string (p, slen), Qnil);
798 } 798 }
799 else 799 else
800 { 800 {
801 endp = XCONS (endp)->cdr = Fcons (make_string (p, slen), Qnil); 801 endp = XCDR (endp) = Fcons (make_string (p, slen), Qnil);
802 } 802 }
803 p += slen + 1; 803 p += slen + 1;
804 } 804 }
805 return res; 805 return res;
806 } 806 }