diff options
| author | K. Handa | 2015-01-07 22:51:41 +0900 |
|---|---|---|
| committer | K. Handa | 2015-01-07 22:51:41 +0900 |
| commit | 88bc8332eb14bcc4780fd3fe3dd4de2205c31dbf (patch) | |
| tree | 18da116400703b67738bdbbd38cc4abf4c1e929f /src/data.c | |
| parent | 3f79d3131629f73da16ec121d2a0056f11b70e65 (diff) | |
| parent | 95295df44cc2b6e0e2442aeff96b0fe2ceac405c (diff) | |
| download | emacs-88bc8332eb14bcc4780fd3fe3dd4de2205c31dbf.tar.gz emacs-88bc8332eb14bcc4780fd3fe3dd4de2205c31dbf.zip | |
Merge branch master of git.sv.gnu.org:/srv/git/emacs.
Diffstat (limited to 'src/data.c')
| -rw-r--r-- | src/data.c | 58 |
1 files changed, 1 insertions, 57 deletions
diff --git a/src/data.c b/src/data.c index 7151d220b05..820c3ce8407 100644 --- a/src/data.c +++ b/src/data.c | |||
| @@ -1,5 +1,5 @@ | |||
| 1 | /* Primitive operations on Lisp data types for GNU Emacs Lisp interpreter. | 1 | /* Primitive operations on Lisp data types for GNU Emacs Lisp interpreter. |
| 2 | Copyright (C) 1985-1986, 1988, 1993-1995, 1997-2014 Free Software | 2 | Copyright (C) 1985-1986, 1988, 1993-1995, 1997-2015 Free Software |
| 3 | Foundation, Inc. | 3 | Foundation, Inc. |
| 4 | 4 | ||
| 5 | This file is part of GNU Emacs. | 5 | This file is part of GNU Emacs. |
| @@ -37,58 +37,6 @@ along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>. */ | |||
| 37 | #include "font.h" | 37 | #include "font.h" |
| 38 | #include "keymap.h" | 38 | #include "keymap.h" |
| 39 | 39 | ||
| 40 | Lisp_Object Qnil, Qt, Qquote, Qlambda, Qunbound; | ||
| 41 | static Lisp_Object Qsubr; | ||
| 42 | Lisp_Object Qerror_conditions, Qerror_message, Qtop_level; | ||
| 43 | Lisp_Object Qerror, Quser_error, Qquit, Qargs_out_of_range; | ||
| 44 | static Lisp_Object Qwrong_length_argument; | ||
| 45 | static Lisp_Object Qwrong_type_argument; | ||
| 46 | Lisp_Object Qvoid_variable, Qvoid_function; | ||
| 47 | static Lisp_Object Qcyclic_function_indirection; | ||
| 48 | static Lisp_Object Qcyclic_variable_indirection; | ||
| 49 | Lisp_Object Qcircular_list; | ||
| 50 | static Lisp_Object Qsetting_constant; | ||
| 51 | Lisp_Object Qinvalid_read_syntax; | ||
| 52 | Lisp_Object Qinvalid_function, Qwrong_number_of_arguments, Qno_catch; | ||
| 53 | Lisp_Object Qend_of_file, Qarith_error, Qmark_inactive; | ||
| 54 | Lisp_Object Qbeginning_of_buffer, Qend_of_buffer, Qbuffer_read_only; | ||
| 55 | Lisp_Object Qtext_read_only; | ||
| 56 | |||
| 57 | Lisp_Object Qintegerp, Qwholenump, Qsymbolp, Qlistp, Qconsp; | ||
| 58 | static Lisp_Object Qnatnump; | ||
| 59 | Lisp_Object Qstringp, Qarrayp, Qsequencep, Qbufferp; | ||
| 60 | Lisp_Object Qchar_or_string_p, Qmarkerp, Qinteger_or_marker_p, Qvectorp; | ||
| 61 | Lisp_Object Qbool_vector_p; | ||
| 62 | Lisp_Object Qbuffer_or_string_p; | ||
| 63 | static Lisp_Object Qkeywordp, Qboundp; | ||
| 64 | Lisp_Object Qfboundp; | ||
| 65 | Lisp_Object Qchar_table_p, Qvector_or_char_table_p; | ||
| 66 | |||
| 67 | Lisp_Object Qcdr; | ||
| 68 | static Lisp_Object Qad_advice_info, Qad_activate_internal; | ||
| 69 | |||
| 70 | static Lisp_Object Qdomain_error, Qsingularity_error, Qunderflow_error; | ||
| 71 | Lisp_Object Qrange_error, Qoverflow_error; | ||
| 72 | |||
| 73 | Lisp_Object Qfloatp; | ||
| 74 | Lisp_Object Qnumberp, Qnumber_or_marker_p; | ||
| 75 | |||
| 76 | Lisp_Object Qinteger, Qsymbol; | ||
| 77 | static Lisp_Object Qcons, Qfloat, Qmisc, Qstring, Qvector; | ||
| 78 | Lisp_Object Qwindow; | ||
| 79 | static Lisp_Object Qoverlay, Qwindow_configuration; | ||
| 80 | static Lisp_Object Qprocess, Qmarker; | ||
| 81 | static Lisp_Object Qcompiled_function, Qframe; | ||
| 82 | Lisp_Object Qbuffer; | ||
| 83 | static Lisp_Object Qchar_table, Qbool_vector, Qhash_table; | ||
| 84 | static Lisp_Object Qsubrp; | ||
| 85 | static Lisp_Object Qmany, Qunevalled; | ||
| 86 | Lisp_Object Qfont_spec, Qfont_entity, Qfont_object; | ||
| 87 | static Lisp_Object Qdefun; | ||
| 88 | |||
| 89 | Lisp_Object Qinteractive_form; | ||
| 90 | static Lisp_Object Qdefalias_fset_function; | ||
| 91 | |||
| 92 | static void swap_in_symval_forwarding (struct Lisp_Symbol *, | 40 | static void swap_in_symval_forwarding (struct Lisp_Symbol *, |
| 93 | struct Lisp_Buffer_Local_Value *); | 41 | struct Lisp_Buffer_Local_Value *); |
| 94 | 42 | ||
| @@ -3584,10 +3532,6 @@ syms_of_data (void) | |||
| 3584 | PUT_ERROR (Qunderflow_error, Fcons (Qdomain_error, arith_tail), | 3532 | PUT_ERROR (Qunderflow_error, Fcons (Qdomain_error, arith_tail), |
| 3585 | "Arithmetic underflow error"); | 3533 | "Arithmetic underflow error"); |
| 3586 | 3534 | ||
| 3587 | staticpro (&Qnil); | ||
| 3588 | staticpro (&Qt); | ||
| 3589 | staticpro (&Qunbound); | ||
| 3590 | |||
| 3591 | /* Types that type-of returns. */ | 3535 | /* Types that type-of returns. */ |
| 3592 | DEFSYM (Qinteger, "integer"); | 3536 | DEFSYM (Qinteger, "integer"); |
| 3593 | DEFSYM (Qsymbol, "symbol"); | 3537 | DEFSYM (Qsymbol, "symbol"); |