aboutsummaryrefslogtreecommitdiffstats
path: root/src/callint.c
diff options
context:
space:
mode:
authorJuanma Barranquero2011-06-24 23:25:22 +0200
committerJuanma Barranquero2011-06-24 23:25:22 +0200
commitcd3520a41df21d80a9d894c58af2daba23c8dd24 (patch)
tree945eaef322c65471833954ddce161a7a913ee3c8 /src/callint.c
parent7d0da90e7b98f5c09df82be9985cc27d30adea07 (diff)
downloademacs-cd3520a41df21d80a9d894c58af2daba23c8dd24.tar.gz
emacs-cd3520a41df21d80a9d894c58af2daba23c8dd24.zip
Move DEFSYM to lisp.h and use everywhere.
Diffstat (limited to 'src/callint.c')
-rw-r--r--src/callint.c49
1 files changed, 14 insertions, 35 deletions
diff --git a/src/callint.c b/src/callint.c
index dc5e6a4c37a..4d0a2a07921 100644
--- a/src/callint.c
+++ b/src/callint.c
@@ -896,41 +896,20 @@ syms_of_callint (void)
896 pure_cons (intern_c_string ("point"), 896 pure_cons (intern_c_string ("point"),
897 pure_cons (intern_c_string ("mark"), Qnil)))); 897 pure_cons (intern_c_string ("mark"), Qnil))));
898 898
899 Qlist = intern_c_string ("list"); 899 DEFSYM (Qlist, "list");
900 staticpro (&Qlist); 900 DEFSYM (Qlet, "let");
901 Qlet = intern_c_string ("let"); 901 DEFSYM (Qif, "if");
902 staticpro (&Qlet); 902 DEFSYM (Qwhen, "when");
903 Qif = intern_c_string ("if"); 903 DEFSYM (Qletx, "let*");
904 staticpro (&Qif); 904 DEFSYM (Qsave_excursion, "save-excursion");
905 Qwhen = intern_c_string ("when"); 905 DEFSYM (Qprogn, "progn");
906 staticpro (&Qwhen); 906 DEFSYM (Qminus, "-");
907 Qletx = intern_c_string ("let*"); 907 DEFSYM (Qplus, "+");
908 staticpro (&Qletx); 908 DEFSYM (Qhandle_shift_selection, "handle-shift-selection");
909 Qsave_excursion = intern_c_string ("save-excursion"); 909 DEFSYM (Qcall_interactively, "call-interactively");
910 staticpro (&Qsave_excursion); 910 DEFSYM (Qcommand_debug_status, "command-debug-status");
911 Qprogn = intern_c_string ("progn"); 911 DEFSYM (Qenable_recursive_minibuffers, "enable-recursive-minibuffers");
912 staticpro (&Qprogn); 912 DEFSYM (Qmouse_leave_buffer_hook, "mouse-leave-buffer-hook");
913
914 Qminus = intern_c_string ("-");
915 staticpro (&Qminus);
916
917 Qplus = intern_c_string ("+");
918 staticpro (&Qplus);
919
920 Qhandle_shift_selection = intern_c_string ("handle-shift-selection");
921 staticpro (&Qhandle_shift_selection);
922
923 Qcall_interactively = intern_c_string ("call-interactively");
924 staticpro (&Qcall_interactively);
925
926 Qcommand_debug_status = intern_c_string ("command-debug-status");
927 staticpro (&Qcommand_debug_status);
928
929 Qenable_recursive_minibuffers = intern_c_string ("enable-recursive-minibuffers");
930 staticpro (&Qenable_recursive_minibuffers);
931
932 Qmouse_leave_buffer_hook = intern_c_string ("mouse-leave-buffer-hook");
933 staticpro (&Qmouse_leave_buffer_hook);
934 913
935 DEFVAR_KBOARD ("prefix-arg", Vprefix_arg, 914 DEFVAR_KBOARD ("prefix-arg", Vprefix_arg,
936 doc: /* The value of the prefix argument for the next editing command. 915 doc: /* The value of the prefix argument for the next editing command.