changeset 67487:44fba69e3c47

Create keymap for mac-apple-event-map.
author YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
date Sun, 11 Dec 2005 01:05:56 +0000
parents 3d94a55776e3
children 34b8bc403505
files lisp/term/mac-win.el
diffstat 1 files changed, 2 insertions(+), 0 deletions(-) [+]
line wrap: on
line diff
--- 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.