# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 841815581 0
# Node ID 5ad91b5cd2b4b29420e39db095eda35faf1b8d36
# Parent  4b672131c37fb509b7a6c4be6059d01ed3425d39
(Fexecute_extended_command): Fix previous change.

diff -r 4b672131c37f -r 5ad91b5cd2b4 src/keyboard.c
--- a/src/keyboard.c	Wed Sep 04 04:33:40 1996 +0000
+++ b/src/keyboard.c	Wed Sep 04 05:39:41 1996 +0000
@@ -6901,6 +6901,8 @@
   (prefixarg)
      Lisp_Object prefixarg;
 {
+  defsubr (&Sfocus_frame);
+  defsubr (&Sunfocus_frame);
   Lisp_Object function;
   char buf[40];
   Lisp_Object saved_keys;
@@ -6909,7 +6911,7 @@
   saved_keys = Fvector (this_command_key_count,
 			XVECTOR (this_command_keys)->contents);
   buf[0] = 0;
-  GCPRO1 (saved_keys, prefixarg);
+  GCPRO2 (saved_keys, prefixarg);
 
   if (EQ (prefixarg, Qminus))
     strcpy (buf, "- ");