Mercurial > emacs
comparison src/fns.c @ 54994:937db08d4048
(Fassoc, Feql): Fix indentation.
| author | John Paul Wallington <jpw@pobox.com> |
|---|---|
| date | Tue, 20 Apr 2004 00:17:46 +0000 |
| parents | 1b818fd4a373 |
| children | beac72c0215f |
comparison
equal
deleted
inserted
replaced
| 54993:08b0ee9a9b35 | 54994:937db08d4048 |
|---|---|
| 1558 } | 1558 } |
| 1559 | 1559 |
| 1560 DEFUN ("assoc", Fassoc, Sassoc, 2, 2, 0, | 1560 DEFUN ("assoc", Fassoc, Sassoc, 2, 2, 0, |
| 1561 doc: /* Return non-nil if KEY is `equal' to the car of an element of LIST. | 1561 doc: /* Return non-nil if KEY is `equal' to the car of an element of LIST. |
| 1562 The value is actually the first element of LIST whose car equals KEY. */) | 1562 The value is actually the first element of LIST whose car equals KEY. */) |
| 1563 (key, list) | 1563 (key, list) |
| 1564 Lisp_Object key, list; | 1564 Lisp_Object key, list; |
| 1565 { | 1565 { |
| 1566 Lisp_Object result, car; | 1566 Lisp_Object result, car; |
| 1567 | 1567 |
| 1568 while (1) | 1568 while (1) |
| 2136 } | 2136 } |
| 2137 | 2137 |
| 2138 DEFUN ("eql", Feql, Seql, 2, 2, 0, | 2138 DEFUN ("eql", Feql, Seql, 2, 2, 0, |
| 2139 doc: /* Return t if the two args are the same Lisp object. | 2139 doc: /* Return t if the two args are the same Lisp object. |
| 2140 Floating-point numbers of equal value are `eql', but they may not be `eq'. */) | 2140 Floating-point numbers of equal value are `eql', but they may not be `eq'. */) |
| 2141 (obj1, obj2) | 2141 (obj1, obj2) |
| 2142 Lisp_Object obj1, obj2; | 2142 Lisp_Object obj1, obj2; |
| 2143 { | 2143 { |
| 2144 if (FLOATP (obj1)) | 2144 if (FLOATP (obj1)) |
| 2145 return internal_equal (obj1, obj2, 0, 0) ? Qt : Qnil; | 2145 return internal_equal (obj1, obj2, 0, 0) ? Qt : Qnil; |
| 2146 else | 2146 else |