Mercurial > emacs
diff src/callint.c @ 88123:375f2633d815
New directory
author | Kenichi Handa <handa@m17n.org> |
---|---|
date | Mon, 08 Sep 2003 11:56:09 +0000 |
parents | 695cf19ef79e |
children | 68c22ea6027c |
line wrap: on
line diff
--- a/src/callint.c Thu Sep 04 04:00:49 2003 +0000 +++ b/src/callint.c Mon Sep 08 11:56:09 2003 +0000 @@ -41,7 +41,6 @@ Lisp_Object Vcommand_history; extern Lisp_Object Vhistory_length; -extern Lisp_Object Vthis_original_command, real_this_command; Lisp_Object Vcommand_debug_status, Qcommand_debug_status; Lisp_Object Qenable_recursive_minibuffers; @@ -292,14 +291,6 @@ int key_count; int record_then_fail = 0; - Lisp_Object save_this_command, save_last_command; - Lisp_Object save_this_original_command, save_real_this_command; - - save_this_command = Vthis_command; - save_this_original_command = Vthis_original_command; - save_real_this_command = real_this_command; - save_last_command = current_kboard->Vlast_command; - if (NILP (keys)) keys = this_command_keys, key_count = this_command_key_count; else @@ -404,12 +395,6 @@ XSETCDR (teml, Qnil); } } - - Vthis_command = save_this_command; - Vthis_original_command = save_this_original_command; - real_this_command= save_real_this_command; - current_kboard->Vlast_command = save_last_command; - single_kboard_state (); return apply1 (function, specs); } @@ -856,11 +841,6 @@ if (record_then_fail) Fbarf_if_buffer_read_only (); - Vthis_command = save_this_command; - Vthis_original_command = save_this_original_command; - real_this_command= save_real_this_command; - current_kboard->Vlast_command = save_last_command; - single_kboard_state (); { @@ -998,6 +978,3 @@ defsubr (&Scall_interactively); defsubr (&Sprefix_numeric_value); } - -/* arch-tag: a3a7cad7-bcac-42ce-916e-1bd2546ebf37 - (do not change this comment) */