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) */