From: Richard M. Stallman <rms@gnu.org>
Date: Wed, 4 Sep 1996 05:39:41 +0000 (+0000)
Subject: (Fexecute_extended_command): Fix previous change.
X-Git-Tag: emacs-20.1~3833
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=fde7aff8e2aa69e39a054a9ff739f77d09b67a93;p=emacs.git

(Fexecute_extended_command): Fix previous change.
---

diff --git a/src/keyboard.c b/src/keyboard.c
index a995e551ad3..b1578a3a949 100644
--- a/src/keyboard.c
+++ b/src/keyboard.c
@@ -6901,6 +6901,8 @@ DEFUN ("execute-extended-command", Fexecute_extended_command, Sexecute_extended_
   (prefixarg)
      Lisp_Object prefixarg;
 {
+  defsubr (&Sfocus_frame);
+  defsubr (&Sunfocus_frame);
   Lisp_Object function;
   char buf[40];
   Lisp_Object saved_keys;
@@ -6909,7 +6911,7 @@ DEFUN ("execute-extended-command", Fexecute_extended_command, Sexecute_extended_
   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, "- ");