1 files changed, 1 insertions, 0 deletions

diff --git a/lisp/edmacro.el b/lisp/edmacro.el
index 86bf29f0381..3b562bbdbdf 100644
--- a/lisp/edmacro.el
+++ b/lisp/edmacro.el
@@ -670,6 +670,7 @@ This function assumes that the events can be stored in a string."
           (cond ((atom ev)
                  (push ev result))
                 ((eq (car ev) 'help-echo))
+                ((eq (car ev) 'switch-frame))
                 ((equal ev '(menu-bar))
                  (push 'menu-bar result))
                 ((equal (cadadr ev) '(menu-bar))