# HG changeset patch
# User YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
# Date 1134263156 0
# Node ID 44fba69e3c47208cb4895b91ced99b8f0745c872
# Parent  3d94a55776e3c2392457dc97b3889c8f3efac1ca
Create keymap for mac-apple-event-map.

diff -r 3d94a55776e3 -r 44fba69e3c47 lisp/term/mac-win.el
--- a/lisp/term/mac-win.el	Sat Dec 10 21:32:22 2005 +0000
+++ b/lisp/term/mac-win.el	Sun Dec 11 01:05:56 2005 +0000
@@ -1518,6 +1518,8 @@
 	(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.