diff options
| author | Dmitry Antipov <dmantipov@yandex.ru> | 2012-06-19 20:56:28 +0400 |
|---|---|---|
| committer | Dmitry Antipov <dmantipov@yandex.ru> | 2012-06-19 20:56:28 +0400 |
| commit | 28be1ada0fb9a4b51cf361dc45208e764bd34143 (patch) | |
| tree | 30a21470e485d1d9f397d97dcb9a386c578ab746 /src/print.c | |
| parent | 68f12411893785de1cfc2c24ec36059e49af5d55 (diff) | |
| download | emacs-28be1ada0fb9a4b51cf361dc45208e764bd34143.tar.gz emacs-28be1ada0fb9a4b51cf361dc45208e764bd34143.tar.bz2 emacs-28be1ada0fb9a4b51cf361dc45208e764bd34143.zip | |
* alloc.c, bytecode.c, ccl.c, coding.c, composite.c, data.c, dosfns.c:
* font.c, image.c, keyboard.c, lread.c, menu.c, minibuf.c, msdos.c:
* print.c, syntax.c, window.c, xmenu.c, xselect.c: Replace direct
access to `contents' member of Lisp_Vector objects with AREF and ASET
where appropriate.
Diffstat (limited to 'src/print.c')
| -rw-r--r-- | src/print.c | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/print.c b/src/print.c index a388832b07b..a632f45bbeb 100644 --- a/src/print.c +++ b/src/print.c @@ -1208,7 +1208,7 @@ print_preprocess (Lisp_Object obj) if (size & PSEUDOVECTOR_FLAG) size &= PSEUDOVECTOR_SIZE_MASK; for (i = 0; i < size; i++) - print_preprocess (XVECTOR (obj)->contents[i]); + print_preprocess (AREF (obj, i)); if (HASH_TABLE_P (obj)) { /* For hash tables, the key_and_value slot is past `size' because it needs to be marked specially in case @@ -1960,7 +1960,7 @@ print_object (Lisp_Object obj, register Lisp_Object printcharfun, int escapeflag for (i = 0; i < size; i++) { if (i) PRINTCHAR (' '); - tem = XVECTOR (obj)->contents[i]; + tem = AREF (obj, i); print_object (tem, printcharfun, escapeflag); } if (size < real_size) |