diff options
| author | Dmitry Antipov | 2012-07-10 20:53:26 +0400 |
|---|---|---|
| committer | Dmitry Antipov | 2012-07-10 20:53:26 +0400 |
| commit | 7d7bbefd049fc22cf3bf333592abf57a3bde8766 (patch) | |
| tree | ab416b8873bb2c77a6d247b1c65a94ec5d274d3b /src/eval.c | |
| parent | 3a4c8000fba422ac9d005d29ad0c5d8becc58167 (diff) | |
| download | emacs-7d7bbefd049fc22cf3bf333592abf57a3bde8766.tar.gz emacs-7d7bbefd049fc22cf3bf333592abf57a3bde8766.zip | |
Use XCAR and XCDR instead of Fcar and Fcdr where possible.
* admin/coccinelle/list_loop.cocci: Semantic patch to convert from Fcdr
to XCDR and consistently use CONSP in the list iteration loops.
* admin/coccinelle/vector_contents.cocci: Fix indentation.
* src/callint.c, src/coding.c, src/doc.c, src/editfns.c, src/eval.c,
* src/font.c, src/fontset.c, src/frame.c, src/gnutls.c, src/minibuf.c,
* src/msdos.c, src/textprop.c, src/w32fns.c, src/w32menu.c, src/window.c,
* src/xmenu.c: Changed to use XCAR and XCDR where argument type is known
to be a Lisp_Cons.
Diffstat (limited to 'src/eval.c')
| -rw-r--r-- | src/eval.c | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/eval.c b/src/eval.c index 9da9ec05cae..f16fdc6dd4c 100644 --- a/src/eval.c +++ b/src/eval.c | |||
| @@ -2070,8 +2070,8 @@ eval_sub (Lisp_Object form) | |||
| 2070 | error ("Lisp nesting exceeds `max-lisp-eval-depth'"); | 2070 | error ("Lisp nesting exceeds `max-lisp-eval-depth'"); |
| 2071 | } | 2071 | } |
| 2072 | 2072 | ||
| 2073 | original_fun = Fcar (form); | 2073 | original_fun = XCAR (form); |
| 2074 | original_args = Fcdr (form); | 2074 | original_args = XCDR (form); |
| 2075 | 2075 | ||
| 2076 | backtrace.next = backtrace_list; | 2076 | backtrace.next = backtrace_list; |
| 2077 | backtrace_list = &backtrace; | 2077 | backtrace_list = &backtrace; |