comparison src/objects-x.c @ 100:4be1180a9e89 r20-1b2

Import from CVS: tag r20-1b2
author cvs
date Mon, 13 Aug 2007 09:15:11 +0200
parents 1ce6082ce73f
children 538048ae2ab8
comparison
equal deleted inserted replaced
99:2d83cbd90d8d 100:4be1180a9e89
651 XFree (truename_random); 651 XFree (truename_random);
652 652
653 if (truename) 653 if (truename)
654 { 654 {
655 Lisp_Object result = build_string (truename); 655 Lisp_Object result = build_string (truename);
656 xfree (truename); 656 XFree (truename);
657 return result; 657 return result;
658 } 658 }
659 else 659 else
660 return Qnil; 660 return Qnil;
661 } 661 }