From: YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
Date: Sun, 11 Dec 2005 01:05:56 +0000 (+0000)
Subject: Create keymap for mac-apple-event-map.
X-Git-Tag: emacs-pretest-22.0.90~5357
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=2f1fd4847112605dac47aad26b5ab94988a4801c;p=emacs.git

Create keymap for mac-apple-event-map.
---

diff --git a/lisp/term/mac-win.el b/lisp/term/mac-win.el
index 064f9bd12bf..d6c6f9b8489 100644
--- 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.