Create keymap for mac-apple-event-map.

diff --git a/lisp/term/mac-win.el b/lisp/term/mac-win.el
index 064f9bd12bf459215e47d7e6f67509d2ca328c13..d6c6f9b84897a648e4bf88f814ed587f5f76d5ae 100644 (file)
--- a/lisp/term/mac-win.el
+++ b/lisp/term/mac-win.el
@@ -1518,6 +1518,8 @@ in `selection-converter-alist', which see."
        (url-mailto parsed-url)
       (error "Unsupported URL scheme: %s" (url-type parsed-url)))))
 
+(setq mac-apple-event-map (make-sparse-keymap))
+
 ;; Received when Emacs is launched without associated documents.
 ;; Accept it as an Apple event, but no Emacs event is generated so as
 ;; not to erase the splash screen.