Mercurial > emacs
comparison src/fns.c @ 30417:d691cbc2270d
Pass Qeql to Fmake_hash_table if TEST is nil.
| author | Andreas Schwab <schwab@suse.de> |
|---|---|
| date | Mon, 24 Jul 2000 14:06:45 +0000 |
| parents | 4c2d8e4d00e0 |
| children | e26deb1d147a |
comparison
equal
deleted
inserted
replaced
| 30416:cc08ed656c8c | 30417:d691cbc2270d |
|---|---|
| 4615 (test) | 4615 (test) |
| 4616 Lisp_Object test; | 4616 Lisp_Object test; |
| 4617 { | 4617 { |
| 4618 Lisp_Object args[2]; | 4618 Lisp_Object args[2]; |
| 4619 args[0] = QCtest; | 4619 args[0] = QCtest; |
| 4620 args[1] = test; | 4620 args[1] = NILP (test) ? Qeql : test; |
| 4621 return Fmake_hash_table (2, args); | 4621 return Fmake_hash_table (2, args); |
| 4622 } | 4622 } |
| 4623 | 4623 |
| 4624 | 4624 |
| 4625 DEFUN ("hash-table-count", Fhash_table_count, Shash_table_count, 1, 1, 0, | 4625 DEFUN ("hash-table-count", Fhash_table_count, Shash_table_count, 1, 1, 0, |