mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-17 11:20:39 -08:00
Code Issues Projects Releases Wiki Activity

* coding.c (Fdefine_coding_system_internal): Use XCAR/XCDR instead

Browse source 
of Fcar/Fcdr if possible.
* font.c (check_otf_features): Likewise.
* fontset.c (Fnew_fontset): Likewise.
* gnutls.c (Fgnutls_boot): Likewise.
* minibuf.c (read_minibuf): Likewise.
* msdos.c (IT_set_frame_parameters): Likewise.
* xmenu.c (Fx_popup_dialog): Likewise.
* w32menu.c (Fx_popup_dialog): Likewise.
This commit is contained in:
Andreas Schwab 2012-07-11 09:19:44 +02:00
parent 172bedefc9
commit 34348bd4e5
9 changed files with 27 additions and 17 deletions
Download patch file Download diff file Expand all files Collapse all files

4
src/coding.c
View file

@ -9795,7 +9795,7 @@ usage: (define-coding-system-internal ...) */)
{
int from, to;
val = Fcar (tail);
val = XCAR (tail);
if (INTEGERP (val))
{
if (! (0 <= XINT (val) && XINT (val) <= 255))
@ -9897,7 +9897,7 @@ usage: (define-coding-system-internal ...) */)
int id;
Lisp_Object tmp1;
val = Fcar (tail);
val = XCAR (tail);
CHECK_CONS (val);
tmp1 = XCAR (val);
CHECK_CHARSET_GET_ID (tmp1, id);