(Fcall_interactively): Disallow switch-frame events when reading `k' or `K'

specification.

diff --git a/src/callint.c b/src/callint.c
index 93ecf3b7feb1913b390fc8956781898650972f7d..be3517efcd4265b8a75f9763f5db08a49695d74a 100644 (file)
--- a/src/callint.c
+++ b/src/callint.c
@@ -476,13 +476,13 @@ Otherwise, this is done only if an arg is read using the minibuffer.")
          break;
 
        case 'k':               /* Key sequence. */
-         args[i] = Fread_key_sequence (build_string (prompt), Qnil, Qnil);
+         args[i] = Fread_key_sequence (build_string (prompt), Qnil, Qnil, Qnil);
          teml = args[i];
          visargs[i] = Fkey_description (teml);
          break;
 
        case 'K':               /* Key sequence to be defined. */
-         args[i] = Fread_key_sequence (build_string (prompt), Qnil, Qt);
+         args[i] = Fread_key_sequence (build_string (prompt), Qnil, Qt, Qnil);
          teml = args[i];
          visargs[i] = Fkey_description (teml);
          break;