comparison src/fns.c @ 438:84b14dcb0985 r21-2-27

Import from CVS: tag r21-2-27
author cvs
date Mon, 13 Aug 2007 11:32:25 +0200
parents 9d177e8d4150
children 8de8e3f6228a
comparison
equal deleted inserted replaced
437:e2a4e8b94b82 438:84b14dcb0985
1848 */ 1848 */
1849 int 1849 int
1850 plists_differ (Lisp_Object a, Lisp_Object b, int nil_means_not_present, 1850 plists_differ (Lisp_Object a, Lisp_Object b, int nil_means_not_present,
1851 int laxp, int depth) 1851 int laxp, int depth)
1852 { 1852 {
1853 int eqp = (depth == -1); /* -1 as depth means us eq, not equal. */ 1853 int eqp = (depth == -1); /* -1 as depth means use eq, not equal. */
1854 int la, lb, m, i, fill; 1854 int la, lb, m, i, fill;
1855 Lisp_Object *keys, *vals; 1855 Lisp_Object *keys, *vals;
1856 char *flags; 1856 char *flags;
1857 Lisp_Object rest; 1857 Lisp_Object rest;
1858 1858