comparison src/fns.c @ 359:8e84bee8ddd0 r21-1-9

Import from CVS: tag r21-1-9
author cvs
date Mon, 13 Aug 2007 10:57:55 +0200
parents 851ff35f137f
children cc15677e0335
comparison
equal deleted inserted replaced
358:fed6e0f6a03a 359:8e84bee8ddd0
1925 */ 1925 */
1926 int 1926 int
1927 plists_differ (Lisp_Object a, Lisp_Object b, int nil_means_not_present, 1927 plists_differ (Lisp_Object a, Lisp_Object b, int nil_means_not_present,
1928 int laxp, int depth) 1928 int laxp, int depth)
1929 { 1929 {
1930 int eqp = (depth == -1); /* -1 as depth means us eq, not equal. */ 1930 int eqp = (depth == -1); /* -1 as depth means use eq, not equal. */
1931 int la, lb, m, i, fill; 1931 int la, lb, m, i, fill;
1932 Lisp_Object *keys, *vals; 1932 Lisp_Object *keys, *vals;
1933 char *flags; 1933 char *flags;
1934 Lisp_Object rest; 1934 Lisp_Object rest;
1935 1935