Mercurial > emacs

comparison lisp/term/mac-win.el @ 72703:ca1234ea6e5f

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(show-hide-font-panel): New HI command ID symbol. (mac-apple-event-map): Define its handler.
author YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
date Fri, 08 Sep 2006 08:17:21 +0000
parents b09e6c8f23d4
children 246a1d48fea4 2d56e13fd23d a1a25ac6c88a
comparison
equal deleted inserted replaced
72702:085f47334da5 72703:ca1234ea6e5f
1531 (put 'core-event 'mac-apple-event-class "aevt") ; kCoreEventClass 1531 (put 'core-event 'mac-apple-event-class "aevt") ; kCoreEventClass
1532 (put 'internet-event 'mac-apple-event-class "GURL") ; kAEInternetEventClass 1532 (put 'internet-event 'mac-apple-event-class "GURL") ; kAEInternetEventClass
1533 1533
1534 ;;; Event IDs 1534 ;;; Event IDs
1535 ;; kCoreEventClass 1535 ;; kCoreEventClass
1536 (put 'open-application 'mac-apple-event-id "oapp") ; kAEOpenApplication 1536 (put 'open-application 'mac-apple-event-id "oapp") ; kAEOpenApplication
1537 (put 'reopen-application 'mac-apple-event-id "rapp") ; kAEReopenApplication 1537 (put 'reopen-application 'mac-apple-event-id "rapp") ; kAEReopenApplication
1538 (put 'open-documents 'mac-apple-event-id "odoc") ; kAEOpenDocuments 1538 (put 'open-documents 'mac-apple-event-id "odoc") ; kAEOpenDocuments
1539 (put 'print-documents 'mac-apple-event-id "pdoc") ; kAEPrintDocuments 1539 (put 'print-documents 'mac-apple-event-id "pdoc") ; kAEPrintDocuments
1540 (put 'open-contents 'mac-apple-event-id "ocon") ; kAEOpenContents 1540 (put 'open-contents 'mac-apple-event-id "ocon") ; kAEOpenContents
1541 (put 'quit-application 'mac-apple-event-id "quit") ; kAEQuitApplication 1541 (put 'quit-application 'mac-apple-event-id "quit") ; kAEQuitApplication
1542 (put 'application-died 'mac-apple-event-id "obit") ; kAEApplicationDied 1542 (put 'application-died 'mac-apple-event-id "obit") ; kAEApplicationDied
1543 (put 'show-preferences 'mac-apple-event-id "pref") ; kAEShowPreferences 1543 (put 'show-preferences 'mac-apple-event-id "pref") ; kAEShowPreferences
1544 (put 'autosave-now 'mac-apple-event-id "asav") ; kAEAutosaveNow 1544 (put 'autosave-now 'mac-apple-event-id "asav") ; kAEAutosaveNow
1545 ;; kAEInternetEventClass 1545 ;; kAEInternetEventClass
1546 (put 'get-url 'mac-apple-event-id "GURL") ; kAEGetURL 1546 (put 'get-url 'mac-apple-event-id "GURL") ; kAEGetURL
1547 ;; Converted HI command events 1547 ;; Converted HI command events
1548 (put 'about 'mac-apple-event-id "abou") ; kHICommandAbout 1548 (put 'about 'mac-apple-event-id "abou") ; kHICommandAbout
1549 (put 'show-hide-font-panel 'mac-apple-event-id "shfp") ; kHICommandShowHideFontPanel
1549 1550
1550 (defmacro mac-event-spec (event) 1551 (defmacro mac-event-spec (event)
1551 `(nth 1 ,event)) 1552 `(nth 1 ,event))
1552 1553
1553 (defmacro mac-event-ae (event) 1554 (defmacro mac-event-ae (event)
1799 ;; kEventClassFont/kEventFontPanelClosed 1800 ;; kEventClassFont/kEventFontPanelClosed
1800 (define-key mac-apple-event-map [font panel-closed] 1801 (define-key mac-apple-event-map [font panel-closed]
1801 'mac-handle-font-panel-closed) 1802 'mac-handle-font-panel-closed)
1802 ;; kEventClassFont/kEventFontSelection 1803 ;; kEventClassFont/kEventFontSelection
1803 (define-key mac-apple-event-map [font selection] 'mac-handle-font-selection) 1804 (define-key mac-apple-event-map [font selection] 'mac-handle-font-selection)
1805 (define-key mac-apple-event-map [hi-command show-hide-font-panel]
1806 'mac-font-panel-mode)
1804 1807
1805 (define-key-after menu-bar-showhide-menu [mac-font-panel-mode] 1808 (define-key-after menu-bar-showhide-menu [mac-font-panel-mode]
1806 (menu-bar-make-mm-toggle mac-font-panel-mode 1809 (menu-bar-make-mm-toggle mac-font-panel-mode
1807 "Font Panel" 1810 "Font Panel"
1808 "Show the font panel as a floating dialog") 1811 "Show the font panel as a floating dialog")