diff options
| author | Ken Raeburn <raeburn@raeburn.org> | 1999-09-13 02:23:04 +0000 |
|---|---|---|
| committer | Ken Raeburn <raeburn@raeburn.org> | 1999-09-13 02:23:04 +0000 |
| commit | 03699b140e13aee5b49fa4678e97dff5855e789c (patch) | |
| tree | 79213225b326eeaa5385bf863f2e3c2df62963e5 /src/doc.c | |
| parent | 926106201f8bfebbaac3c5b0f5e36192b7f00f1b (diff) | |
| download | emacs-03699b140e13aee5b49fa4678e97dff5855e789c.tar.gz emacs-03699b140e13aee5b49fa4678e97dff5855e789c.tar.bz2 emacs-03699b140e13aee5b49fa4678e97dff5855e789c.zip | |
Use XCAR, XCDR, and XFLOAT_DATA instead of explicit member access.
Diffstat (limited to 'src/doc.c')
| -rw-r--r-- | src/doc.c | 14 |
1 files changed, 7 insertions, 7 deletions
diff --git a/src/doc.c b/src/doc.c index af7c55e0b20..78b005b852b 100644 --- a/src/doc.c +++ b/src/doc.c @@ -126,8 +126,8 @@ get_doc_string (filepos, unibyte, definition) } else if (CONSP (filepos)) { - file = XCONS (filepos)->car; - position = XINT (XCONS (filepos)->cdr); + file = XCAR (filepos); + position = XINT (XCDR (filepos)); if (position < 0) position = - position; } @@ -353,7 +353,7 @@ string is passed through `substitute-command-keys'.") /* Handle a doc reference--but these never come last in the function body, so reject them if they are last. */ else if ((NATNUMP (tem) || CONSP (tem)) - && ! NILP (XCONS (tem1)->cdr)) + && ! NILP (XCDR (tem1))) doc = get_doc_string (tem, 0, 0); else return Qnil; @@ -424,15 +424,15 @@ store_function_docstring (fun, offset) { Lisp_Object tem; - tem = XCONS (fun)->car; + tem = XCAR (fun); if (EQ (tem, Qlambda) || EQ (tem, Qautoload)) { tem = Fcdr (Fcdr (fun)); - if (CONSP (tem) && INTEGERP (XCONS (tem)->car)) - XSETFASTINT (XCONS (tem)->car, offset); + if (CONSP (tem) && INTEGERP (XCAR (tem))) + XSETFASTINT (XCAR (tem), offset); } else if (EQ (tem, Qmacro)) - store_function_docstring (XCONS (fun)->cdr, offset); + store_function_docstring (XCDR (fun), offset); } /* Bytecode objects sometimes have slots for it. */ |