Mercurial > emacs

comparison lisp/term/mac-win.el @ 90601:a1a25ac6c88a

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Merge from emacs--devo--0 Patches applied: * emacs--devo--0 (patch 427-436) - Update from CVS - Merge from gnus--rel--5.10 * gnus--rel--5.10 (patch 134-136) - Merge from emacs--devo--0 - Update from CVS Revision: emacs@sv.gnu.org/emacs--unicode--0--patch-110
author Miles Bader <miles@gnu.org>
date Thu, 14 Sep 2006 09:24:00 +0000
parents c358d0861b16 ca1234ea6e5f
children 7eeafaaa9eab
comparison
equal deleted inserted replaced
90600:84dd84b43e1b 90601:a1a25ac6c88a
1581 (put 'core-event 'mac-apple-event-class "aevt") ; kCoreEventClass 1581 (put 'core-event 'mac-apple-event-class "aevt") ; kCoreEventClass
1582 (put 'internet-event 'mac-apple-event-class "GURL") ; kAEInternetEventClass 1582 (put 'internet-event 'mac-apple-event-class "GURL") ; kAEInternetEventClass
1583 1583
1584 ;;; Event IDs 1584 ;;; Event IDs
1585 ;; kCoreEventClass 1585 ;; kCoreEventClass
1586 (put 'open-application 'mac-apple-event-id "oapp") ; kAEOpenApplication 1586 (put 'open-application 'mac-apple-event-id "oapp") ; kAEOpenApplication
1587 (put 'reopen-application 'mac-apple-event-id "rapp") ; kAEReopenApplication 1587 (put 'reopen-application 'mac-apple-event-id "rapp") ; kAEReopenApplication
1588 (put 'open-documents 'mac-apple-event-id "odoc") ; kAEOpenDocuments 1588 (put 'open-documents 'mac-apple-event-id "odoc") ; kAEOpenDocuments
1589 (put 'print-documents 'mac-apple-event-id "pdoc") ; kAEPrintDocuments 1589 (put 'print-documents 'mac-apple-event-id "pdoc") ; kAEPrintDocuments
1590 (put 'open-contents 'mac-apple-event-id "ocon") ; kAEOpenContents 1590 (put 'open-contents 'mac-apple-event-id "ocon") ; kAEOpenContents
1591 (put 'quit-application 'mac-apple-event-id "quit") ; kAEQuitApplication 1591 (put 'quit-application 'mac-apple-event-id "quit") ; kAEQuitApplication
1592 (put 'application-died 'mac-apple-event-id "obit") ; kAEApplicationDied 1592 (put 'application-died 'mac-apple-event-id "obit") ; kAEApplicationDied
1593 (put 'show-preferences 'mac-apple-event-id "pref") ; kAEShowPreferences 1593 (put 'show-preferences 'mac-apple-event-id "pref") ; kAEShowPreferences
1594 (put 'autosave-now 'mac-apple-event-id "asav") ; kAEAutosaveNow 1594 (put 'autosave-now 'mac-apple-event-id "asav") ; kAEAutosaveNow
1595 ;; kAEInternetEventClass 1595 ;; kAEInternetEventClass
1596 (put 'get-url 'mac-apple-event-id "GURL") ; kAEGetURL 1596 (put 'get-url 'mac-apple-event-id "GURL") ; kAEGetURL
1597 ;; Converted HI command events 1597 ;; Converted HI command events
1598 (put 'about 'mac-apple-event-id "abou") ; kHICommandAbout 1598 (put 'about 'mac-apple-event-id "abou") ; kHICommandAbout
1599 (put 'show-hide-font-panel 'mac-apple-event-id "shfp") ; kHICommandShowHideFontPanel
1599 1600
1600 (defmacro mac-event-spec (event) 1601 (defmacro mac-event-spec (event)
1601 `(nth 1 ,event)) 1602 `(nth 1 ,event))
1602 1603
1603 (defmacro mac-event-ae (event) 1604 (defmacro mac-event-ae (event)
1849 ;; kEventClassFont/kEventFontPanelClosed 1850 ;; kEventClassFont/kEventFontPanelClosed
1850 (define-key mac-apple-event-map [font panel-closed] 1851 (define-key mac-apple-event-map [font panel-closed]
1851 'mac-handle-font-panel-closed) 1852 'mac-handle-font-panel-closed)
1852 ;; kEventClassFont/kEventFontSelection 1853 ;; kEventClassFont/kEventFontSelection
1853 (define-key mac-apple-event-map [font selection] 'mac-handle-font-selection) 1854 (define-key mac-apple-event-map [font selection] 'mac-handle-font-selection)
1855 (define-key mac-apple-event-map [hi-command show-hide-font-panel]
1856 'mac-font-panel-mode)
1854 1857
1855 (define-key-after menu-bar-showhide-menu [mac-font-panel-mode] 1858 (define-key-after menu-bar-showhide-menu [mac-font-panel-mode]
1856 (menu-bar-make-mm-toggle mac-font-panel-mode 1859 (menu-bar-make-mm-toggle mac-font-panel-mode
1857 "Font Panel" 1860 "Font Panel"
1858 "Show the font panel as a floating dialog") 1861 "Show the font panel as a floating dialog")