aboutsummaryrefslogtreecommitdiffstats
path: root/src/fns.c
diff options
context:
space:
mode:
Diffstat (limited to 'src/fns.c')
-rw-r--r--src/fns.c22
1 files changed, 0 insertions, 22 deletions
diff --git a/src/fns.c b/src/fns.c
index 9c9501a4989..7739663b775 100644
--- a/src/fns.c
+++ b/src/fns.c
@@ -41,16 +41,6 @@ along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>. */
41#include "xterm.h" 41#include "xterm.h"
42#endif 42#endif
43 43
44Lisp_Object Qstring_lessp;
45static Lisp_Object Qstring_collate_lessp, Qstring_collate_equalp;
46static Lisp_Object Qprovide, Qrequire;
47static Lisp_Object Qyes_or_no_p_history;
48Lisp_Object Qcursor_in_echo_area;
49static Lisp_Object Qwidget_type;
50static Lisp_Object Qcodeset, Qdays, Qmonths, Qpaper;
51
52static Lisp_Object Qmd5, Qsha1, Qsha224, Qsha256, Qsha384, Qsha512;
53
54static void sort_vector_copy (Lisp_Object, ptrdiff_t, 44static void sort_vector_copy (Lisp_Object, ptrdiff_t,
55 Lisp_Object [restrict], Lisp_Object [restrict]); 45 Lisp_Object [restrict], Lisp_Object [restrict]);
56static bool internal_equal (Lisp_Object, Lisp_Object, int, bool, Lisp_Object); 46static bool internal_equal (Lisp_Object, Lisp_Object, int, bool, Lisp_Object);
@@ -2788,8 +2778,6 @@ advisable. */)
2788 return ret; 2778 return ret;
2789} 2779}
2790 2780
2791static Lisp_Object Qsubfeatures;
2792
2793DEFUN ("featurep", Ffeaturep, Sfeaturep, 1, 2, 0, 2781DEFUN ("featurep", Ffeaturep, Sfeaturep, 1, 2, 0,
2794 doc: /* Return t if FEATURE is present in this Emacs. 2782 doc: /* Return t if FEATURE is present in this Emacs.
2795 2783
@@ -2808,8 +2796,6 @@ SUBFEATURE can be used to check a specific subfeature of FEATURE. */)
2808 return (NILP (tem)) ? Qnil : Qt; 2796 return (NILP (tem)) ? Qnil : Qt;
2809} 2797}
2810 2798
2811static Lisp_Object Qfuncall;
2812
2813DEFUN ("provide", Fprovide, Sprovide, 1, 2, 0, 2799DEFUN ("provide", Fprovide, Sprovide, 1, 2, 0,
2814 doc: /* Announce that FEATURE is a feature of the current Emacs. 2800 doc: /* Announce that FEATURE is a feature of the current Emacs.
2815The optional argument SUBFEATURES should be a list of symbols listing 2801The optional argument SUBFEATURES should be a list of symbols listing
@@ -3596,14 +3582,6 @@ base64_decode_1 (const char *from, char *to, ptrdiff_t length,
3596 3582
3597static struct Lisp_Hash_Table *weak_hash_tables; 3583static struct Lisp_Hash_Table *weak_hash_tables;
3598 3584
3599/* Various symbols. */
3600
3601static Lisp_Object Qhash_table_p;
3602static Lisp_Object Qkey, Qvalue, Qeql;
3603Lisp_Object Qeq, Qequal;
3604Lisp_Object QCtest, QCsize, QCrehash_size, QCrehash_threshold, QCweakness;
3605static Lisp_Object Qhash_table_test, Qkey_or_value, Qkey_and_value;
3606
3607 3585
3608/*********************************************************************** 3586/***********************************************************************
3609 Utilities 3587 Utilities