lisp/term/mac-win.el

85 (defvar mac-apple-event-map)
86 (defvar mac-font-panel-mode)
1067 			   global-map)
1071 (define-key function-key-map [backspace] [?\d])
1072 (define-key function-key-map [delete] [?\d])
1073 (define-key function-key-map [tab] [?\t])
1074 (define-key function-key-map [linefeed] [?\n])
1075 (define-key function-key-map [clear] [?\C-l])
1076 (define-key function-key-map [return] [?\C-m])
1077 (define-key function-key-map [escape] [?\e])
1078 (define-key function-key-map [M-backspace] [?\M-\d])
1079 (define-key function-key-map [M-delete] [?\M-\d])
1080 (define-key function-key-map [M-tab] [?\M-\t])
1081 (define-key function-key-map [M-linefeed] [?\M-\n])
1082 (define-key function-key-map [M-clear] [?\M-\C-l])
1083 (define-key function-key-map [M-return] [?\M-\C-m])
1084 (define-key function-key-map [M-escape] [?\M-\e])
1250 	(define-key key-translation-map [?\x80] "\\"))))
1252 (define-key special-event-map [language-change] 'mac-handle-language-change)
1770 (setq mac-apple-event-map (make-sparse-keymap))
1775 (define-key mac-apple-event-map [core-event open-application] 0)
1780 (define-key mac-apple-event-map [core-event reopen-application] 'ignore)
1782 (define-key mac-apple-event-map [core-event open-documents]
1784 (define-key mac-apple-event-map [core-event show-preferences] 'customize)
1785 (define-key mac-apple-event-map [core-event quit-application]
1788 (define-key mac-apple-event-map [internet-event get-url] 'mac-ae-get-url)
1790 (define-key mac-apple-event-map [hi-command about] 'display-splash-screen)
1793 (defun mac-handle-toolbar-switch-mode (event)
1801 	;; Globally toggle tool-bar-mode if some modifier key is pressed.
1802 	(tool-bar-mode)
1809 (define-key mac-apple-event-map [window toolbar-switch-mode]
1810   'mac-handle-toolbar-switch-mode)
1815 (define-minor-mode mac-font-panel-mode
1821   (mac-set-font-panel-visible-p mac-font-panel-mode))
1826   ;; Synchronize with the minor mode variable.
1827   (mac-font-panel-mode 0))
1843 (define-key mac-apple-event-map [font panel-closed]
1846 (define-key mac-apple-event-map [font selection] 'mac-handle-font-selection)
1847 (define-key mac-apple-event-map [hi-command show-hide-font-panel]
1848   'mac-font-panel-mode)
1850 (define-key-after menu-bar-showhide-menu [mac-font-panel-mode]
1851   (menu-bar-make-mm-toggle mac-font-panel-mode
2054 	   (or isearch-mode
2120 (define-key mac-apple-event-map [text-input update-active-input-area]
2123 (define-key mac-apple-event-map [text-input unicode-for-key-event]
2141 (defun mac-service-mail-selection ()
2142   "Prepare a mail buffer containing the selection value for Services."
2144   (compose-mail)
2149 (defun mac-service-mail-to ()
2150   "Prepare a mail buffer to be sent to the selection value for Services."
2152   (compose-mail (x-selection-value mac-service-selection)))
2166 (define-key mac-apple-event-map [service paste] 'mac-service-insert-text)
2168 (define-key mac-apple-event-map [service perform open-file]
2170 (define-key mac-apple-event-map [service perform open-selection]
2172 (define-key mac-apple-event-map [service perform mail-selection]
2173   'mac-service-mail-selection)
2174 (define-key mac-apple-event-map [service perform mail-to]
2175   'mac-service-mail-to)
2178   "Dispatch EVENT according to the keymap `mac-apple-event-map'."
2180   (let* ((binding (lookup-key mac-apple-event-map (mac-event-spec event)))
2202 (define-key special-event-map [mac-apple-event] 'mac-dispatch-apple-event)
2419 	(map-char-table
2433       (map-char-table
2621 (setq-default mode-line-frame-identification "  ")
2624 (mouse-wheel-mode 1)
2632 (define-key special-event-map [drag-n-drop] 'mac-dnd-handle-drag-n-drop-event)