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

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.

diff --git a/src/ChangeLog b/src/ChangeLog
index c9e4cbbabc05c01a13cb49770df8185a3d0cfe42..0ca6c0594a88f80917b05ff676c8247c2ed61c15 100644 (file)
--- a/src/ChangeLog
+++ b/src/ChangeLog
@@ -1,3 +1,15 @@
+2012-07-11  Andreas Schwab  <schwab@linux-m68k.org>
+
+       * coding.c (Fdefine_coding_system_internal): Use XCAR/XCDR instead
+       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.
+
 2012-07-11  Glenn Morris  <rgm@gnu.org>
 
        * s/aix4-2.h, s/bsd-common.h, s/cygwin.h, s/darwin.h:

diff --git a/src/coding.c b/src/coding.c
index 134ebf2ab7385bcdb9112d0f945454ee8fff28e8..d9fcc634b77eac667462a301cfded8606630dbe5 100644 (file)
--- a/src/coding.c
+++ b/src/coding.c
@@ -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);

diff --git a/src/font.c b/src/font.c
index bbfda984a4d55fe1cbc2dea6f4bbada727a1f818..a57029b4af2ed315fd49f34ea8a5bcca3538c4d4 100644 (file)
--- a/src/font.c
+++ b/src/font.c
@@ -1827,7 +1827,7 @@ check_otf_features (Lisp_Object otf_features)
   otf_features = XCDR (otf_features);
   for (val = Fcar (otf_features); CONSP (val); val = XCDR (val))
     {
-      CHECK_SYMBOL (Fcar (val));
+      CHECK_SYMBOL (XCAR (val));
       if (SBYTES (SYMBOL_NAME (XCAR (val))) > 4)
        error ("Invalid OTF GSUB feature: %s",
               SDATA (SYMBOL_NAME (XCAR (val))));
@@ -1835,7 +1835,7 @@ check_otf_features (Lisp_Object otf_features)
   otf_features = XCDR (otf_features);
   for (val = Fcar (otf_features); CONSP (val); val = XCDR (val))
     {
-      CHECK_SYMBOL (Fcar (val));
+      CHECK_SYMBOL (XCAR (val));
       if (SBYTES (SYMBOL_NAME (XCAR (val))) > 4)
        error ("Invalid OTF GPOS feature: %s",
               SDATA (SYMBOL_NAME (XCAR (val))));

diff --git a/src/fontset.c b/src/fontset.c
index 3397502a2fd3990bde36e1e56fe67e6170fa6e3e..f3bf221f2494cce25ae16b7bba8307d7e7710336 100644 (file)
--- a/src/fontset.c
+++ b/src/fontset.c
@@ -1672,7 +1672,7 @@ FONT-SPEC is a vector, a cons, or a string.  See the documentation of
     {
       Lisp_Object elt, script;
 
-      elt = Fcar (fontlist);
+      elt = XCAR (fontlist);
       script = Fcar (elt);
       elt = Fcdr (elt);
       if (CONSP (elt) && (NILP (XCDR (elt)) || CONSP (XCDR (elt))))

diff --git a/src/gnutls.c b/src/gnutls.c
index 21658a1bc82678b2b356d252b8f2f6e44f992b0e..ad569e98226198829f927166012b85d80070ff21 100644 (file)
--- a/src/gnutls.c
+++ b/src/gnutls.c
@@ -873,7 +873,7 @@ one trustfile (usually a CA bundle).  */)
 
       for (tail = trustfiles; CONSP (tail); tail = XCDR (tail))
        {
-         Lisp_Object trustfile = Fcar (tail);
+         Lisp_Object trustfile = XCAR (tail);
          if (STRINGP (trustfile))
            {
              GNUTLS_LOG2 (1, max_log_level, "setting the trustfile: ",
@@ -895,7 +895,7 @@ one trustfile (usually a CA bundle).  */)
 
       for (tail = crlfiles; CONSP (tail); tail = XCDR (tail))
        {
-         Lisp_Object crlfile = Fcar (tail);
+         Lisp_Object crlfile = XCAR (tail);
          if (STRINGP (crlfile))
            {
              GNUTLS_LOG2 (1, max_log_level, "setting the CRL file: ",
@@ -915,8 +915,8 @@ one trustfile (usually a CA bundle).  */)
 
       for (tail = keylist; CONSP (tail); tail = XCDR (tail))
        {
-         Lisp_Object keyfile = Fcar (Fcar (tail));
-         Lisp_Object certfile = Fcar (Fcdr (tail));
+         Lisp_Object keyfile = Fcar (XCAR (tail));
+         Lisp_Object certfile = Fcar (XCDR (tail));
          if (STRINGP (keyfile) && STRINGP (certfile))
            {
              GNUTLS_LOG2 (1, max_log_level, "setting the client key file: ",

diff --git a/src/minibuf.c b/src/minibuf.c
index 27c776857dbac4936a227098ea01a2f63769d8e5..7e47be39bc9e39295ead9afdd9c1aef07c58714c 100644 (file)
--- a/src/minibuf.c
+++ b/src/minibuf.c
@@ -424,7 +424,7 @@ read_minibuf (Lisp_Object map, Lisp_Object initial, Lisp_Object prompt,
     {
       if (CONSP (initial))
        {
-         Lisp_Object backup_n = Fcdr (initial);
+         Lisp_Object backup_n = XCDR (initial);
          initial = XCAR (initial);
          CHECK_STRING (initial);
          if (!NILP (backup_n))

diff --git a/src/msdos.c b/src/msdos.c
index d75277e3866ccbe7d9e171e4050d3bbff733ebcb..d6a493a71d34da798ed73b8b969191cd77636d9b 100644 (file)
--- a/src/msdos.c
+++ b/src/msdos.c
@@ -1620,9 +1620,7 @@ IT_set_frame_parameters (struct frame *f, Lisp_Object alist)
   i = 0;
   for (tail = alist; CONSP (tail); tail = XCDR (tail))
     {
-      Lisp_Object elt;
-
-      elt = Fcar (tail);
+      Lisp_Object elt = XCAR (tail);
       parms[i] = Fcar (elt);
       CHECK_SYMBOL (parms[i]);
       values[i] = Fcdr (elt);

diff --git a/src/w32menu.c b/src/w32menu.c
index 8adc6c628149a8d007bbd5ad947811b516815d24..24dc9d79192bf683df231c3c1ec247097f6e9d82 100644 (file)
--- a/src/w32menu.c
+++ b/src/w32menu.c
@@ -164,10 +164,10 @@ otherwise it is "Question". */)
     {
       Lisp_Object tem = XCAR (position);
       if (CONSP (tem))
-       window = Fcar (Fcdr (position));
+       window = Fcar (XCDR (position));
       else
        {
-         tem = Fcar (Fcdr (position));  /* EVENT_START (position) */
+         tem = Fcar (XCDR (position));  /* EVENT_START (position) */
          window = Fcar (tem);       /* POSN_WINDOW (tem) */
        }
     }

diff --git a/src/xmenu.c b/src/xmenu.c
index fb03ab84d82b8bdf326cb4424d467a3d81450c7d..61e3e3632b0ae9b8ceac56323dc8d47c489aa265 100644 (file)
--- a/src/xmenu.c
+++ b/src/xmenu.c
@@ -260,10 +260,10 @@ for instance using the window manager, then this produces a quit and
     {
       Lisp_Object tem = XCAR (position);
       if (CONSP (tem))
-       window = Fcar (Fcdr (position));
+       window = Fcar (XCDR (position));
       else
        {
-         tem = Fcar (Fcdr (position));  /* EVENT_START (position) */
+         tem = Fcar (XCDR (position));  /* EVENT_START (position) */
          window = Fcar (tem);       /* POSN_WINDOW (tem) */
        }
     }