aboutsummaryrefslogtreecommitdiffstats
path: root/src/callint.c
diff options
context:
space:
mode:
authorKenichi Handa2003-09-08 11:56:09 +0000
committerKenichi Handa2003-09-08 11:56:09 +0000
commit463f5630a5e7cbe7f042bc1175d1fa1c4e98860f (patch)
tree3287d0c628fea2249abf4635b3a4f45bedd6f8c4 /src/callint.c
parent4256310de631bd57c78b88b5131caa073315b3d7 (diff)
downloademacs-463f5630a5e7cbe7f042bc1175d1fa1c4e98860f.tar.gz
emacs-463f5630a5e7cbe7f042bc1175d1fa1c4e98860f.zip
New directory
Diffstat (limited to 'src/callint.c')
-rw-r--r--src/callint.c23
1 files changed, 0 insertions, 23 deletions
diff --git a/src/callint.c b/src/callint.c
index 21a6bd0b1ad..4edb4201fa4 100644
--- a/src/callint.c
+++ b/src/callint.c
@@ -41,7 +41,6 @@ Lisp_Object Qcall_interactively;
41Lisp_Object Vcommand_history; 41Lisp_Object Vcommand_history;
42 42
43extern Lisp_Object Vhistory_length; 43extern Lisp_Object Vhistory_length;
44extern Lisp_Object Vthis_original_command, real_this_command;
45 44
46Lisp_Object Vcommand_debug_status, Qcommand_debug_status; 45Lisp_Object Vcommand_debug_status, Qcommand_debug_status;
47Lisp_Object Qenable_recursive_minibuffers; 46Lisp_Object Qenable_recursive_minibuffers;
@@ -292,14 +291,6 @@ supply if the command inquires which events were used to invoke it. */)
292 int key_count; 291 int key_count;
293 int record_then_fail = 0; 292 int record_then_fail = 0;
294 293
295 Lisp_Object save_this_command, save_last_command;
296 Lisp_Object save_this_original_command, save_real_this_command;
297
298 save_this_command = Vthis_command;
299 save_this_original_command = Vthis_original_command;
300 save_real_this_command = real_this_command;
301 save_last_command = current_kboard->Vlast_command;
302
303 if (NILP (keys)) 294 if (NILP (keys))
304 keys = this_command_keys, key_count = this_command_key_count; 295 keys = this_command_keys, key_count = this_command_key_count;
305 else 296 else
@@ -404,12 +395,6 @@ supply if the command inquires which events were used to invoke it. */)
404 XSETCDR (teml, Qnil); 395 XSETCDR (teml, Qnil);
405 } 396 }
406 } 397 }
407
408 Vthis_command = save_this_command;
409 Vthis_original_command = save_this_original_command;
410 real_this_command= save_real_this_command;
411 current_kboard->Vlast_command = save_last_command;
412
413 single_kboard_state (); 398 single_kboard_state ();
414 return apply1 (function, specs); 399 return apply1 (function, specs);
415 } 400 }
@@ -856,11 +841,6 @@ supply if the command inquires which events were used to invoke it. */)
856 if (record_then_fail) 841 if (record_then_fail)
857 Fbarf_if_buffer_read_only (); 842 Fbarf_if_buffer_read_only ();
858 843
859 Vthis_command = save_this_command;
860 Vthis_original_command = save_this_original_command;
861 real_this_command= save_real_this_command;
862 current_kboard->Vlast_command = save_last_command;
863
864 single_kboard_state (); 844 single_kboard_state ();
865 845
866 { 846 {
@@ -998,6 +978,3 @@ a way to turn themselves off when a mouse command switches windows. */);
998 defsubr (&Scall_interactively); 978 defsubr (&Scall_interactively);
999 defsubr (&Sprefix_numeric_value); 979 defsubr (&Sprefix_numeric_value);
1000} 980}
1001
1002/* arch-tag: a3a7cad7-bcac-42ce-916e-1bd2546ebf37
1003 (do not change this comment) */