aboutsummaryrefslogtreecommitdiffstats
path: root/src/data.c
diff options
context:
space:
mode:
authorK. Handa2015-01-07 22:51:41 +0900
committerK. Handa2015-01-07 22:51:41 +0900
commit88bc8332eb14bcc4780fd3fe3dd4de2205c31dbf (patch)
tree18da116400703b67738bdbbd38cc4abf4c1e929f /src/data.c
parent3f79d3131629f73da16ec121d2a0056f11b70e65 (diff)
parent95295df44cc2b6e0e2442aeff96b0fe2ceac405c (diff)
downloademacs-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.c58
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
5This file is part of GNU Emacs. 5This 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
40Lisp_Object Qnil, Qt, Qquote, Qlambda, Qunbound;
41static Lisp_Object Qsubr;
42Lisp_Object Qerror_conditions, Qerror_message, Qtop_level;
43Lisp_Object Qerror, Quser_error, Qquit, Qargs_out_of_range;
44static Lisp_Object Qwrong_length_argument;
45static Lisp_Object Qwrong_type_argument;
46Lisp_Object Qvoid_variable, Qvoid_function;
47static Lisp_Object Qcyclic_function_indirection;
48static Lisp_Object Qcyclic_variable_indirection;
49Lisp_Object Qcircular_list;
50static Lisp_Object Qsetting_constant;
51Lisp_Object Qinvalid_read_syntax;
52Lisp_Object Qinvalid_function, Qwrong_number_of_arguments, Qno_catch;
53Lisp_Object Qend_of_file, Qarith_error, Qmark_inactive;
54Lisp_Object Qbeginning_of_buffer, Qend_of_buffer, Qbuffer_read_only;
55Lisp_Object Qtext_read_only;
56
57Lisp_Object Qintegerp, Qwholenump, Qsymbolp, Qlistp, Qconsp;
58static Lisp_Object Qnatnump;
59Lisp_Object Qstringp, Qarrayp, Qsequencep, Qbufferp;
60Lisp_Object Qchar_or_string_p, Qmarkerp, Qinteger_or_marker_p, Qvectorp;
61Lisp_Object Qbool_vector_p;
62Lisp_Object Qbuffer_or_string_p;
63static Lisp_Object Qkeywordp, Qboundp;
64Lisp_Object Qfboundp;
65Lisp_Object Qchar_table_p, Qvector_or_char_table_p;
66
67Lisp_Object Qcdr;
68static Lisp_Object Qad_advice_info, Qad_activate_internal;
69
70static Lisp_Object Qdomain_error, Qsingularity_error, Qunderflow_error;
71Lisp_Object Qrange_error, Qoverflow_error;
72
73Lisp_Object Qfloatp;
74Lisp_Object Qnumberp, Qnumber_or_marker_p;
75
76Lisp_Object Qinteger, Qsymbol;
77static Lisp_Object Qcons, Qfloat, Qmisc, Qstring, Qvector;
78Lisp_Object Qwindow;
79static Lisp_Object Qoverlay, Qwindow_configuration;
80static Lisp_Object Qprocess, Qmarker;
81static Lisp_Object Qcompiled_function, Qframe;
82Lisp_Object Qbuffer;
83static Lisp_Object Qchar_table, Qbool_vector, Qhash_table;
84static Lisp_Object Qsubrp;
85static Lisp_Object Qmany, Qunevalled;
86Lisp_Object Qfont_spec, Qfont_entity, Qfont_object;
87static Lisp_Object Qdefun;
88
89Lisp_Object Qinteractive_form;
90static Lisp_Object Qdefalias_fset_function;
91
92static void swap_in_symval_forwarding (struct Lisp_Symbol *, 40static 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");