Mercurial > emacs
comparison src/doc.c @ 39973:579177964efa
Avoid (most) uses of XCAR/XCDR as lvalues, for flexibility in experimenting
with lisp system changes.
| author | Ken Raeburn <raeburn@raeburn.org> |
|---|---|
| date | Tue, 16 Oct 2001 09:09:51 +0000 |
| parents | 0b986bb45526 |
| children | 0600331ddd52 |
comparison
equal
deleted
inserted
replaced
| 39972:b2479b43184b | 39973:579177964efa |
|---|---|
| 443 tem = XCAR (fun); | 443 tem = XCAR (fun); |
| 444 if (EQ (tem, Qlambda) || EQ (tem, Qautoload)) | 444 if (EQ (tem, Qlambda) || EQ (tem, Qautoload)) |
| 445 { | 445 { |
| 446 tem = Fcdr (Fcdr (fun)); | 446 tem = Fcdr (Fcdr (fun)); |
| 447 if (CONSP (tem) && INTEGERP (XCAR (tem))) | 447 if (CONSP (tem) && INTEGERP (XCAR (tem))) |
| 448 XSETFASTINT (XCAR (tem), offset); | 448 XSETCARFASTINT (tem, offset); |
| 449 } | 449 } |
| 450 else if (EQ (tem, Qmacro)) | 450 else if (EQ (tem, Qmacro)) |
| 451 store_function_docstring (XCDR (fun), offset); | 451 store_function_docstring (XCDR (fun), offset); |
| 452 } | 452 } |
| 453 | 453 |