Avoid (most) uses of XCAR/XCDR as lvalues, for flexibility in experimenting

[bpt/emacs.git] / src / doc.c

diff --git a/src/doc.c b/src/doc.c
index 09f377b..39cffee 100644 (file)
--- a/src/doc.c
+++ b/src/doc.c
@@ -445,7 +445,7 @@ store_function_docstring (fun, offset)
        {
          tem = Fcdr (Fcdr (fun));
          if (CONSP (tem) && INTEGERP (XCAR (tem)))
-           XSETFASTINT (XCAR (tem), offset);
+           XSETCARFASTINT (tem, offset);
        }
       else if (EQ (tem, Qmacro))
        store_function_docstring (XCDR (fun), offset);