 ;;----------------------------------------------------------------------------
 (when *macbook-pro-support-enabled*
   (setq mac-command-modifier 'meta)
+  (setq default-input-method "MacOSX")
   ;; Make mouse wheel / trackpad scrolling less jerky
   (setq mouse-wheel-scroll-amount '(0.001))
+  (when *is-cocoa-emacs*
+    ;; Woohoo!!
+    (global-set-key "\M-`" 'ns-next-frame)
+    (global-set-key "\M-h" 'ns-do-hide-emacs)
+    (global-set-key "\M-c" 'ns-copy-including-secondary)
+    (global-set-key "\M-v" 'ns-paste-secondary))
   ;; Use Apple-w to close current buffer on OS-X (is normally bound to kill-ring-save)
   (global-set-key [(meta w)] 'kill-this-buffer))
 

;;----------------------------------------------------------------------------
;; Augment search path for external programs (for OSX)
;;----------------------------------------------------------------------------
(when *macbook-pro-support-enabled*
  (setq default-input-method "MacOSX")
  (eval-after-load "woman"
    '(setq woman-manpath (append (list "/opt/local/man") woman-manpath)))
  (dolist (dir '("/usr/local/bin" "/opt/local/bin"

(when (or window-system (string-match "UTF-8" (shell-command-to-string "locale")))
  (setq utf-translate-cjk-mode nil) ; disable CJK coding/encoding (Chinese/Japanese/Korean characters)
  (set-language-environment 'utf-8)
  (when *is-carbon-emacs*
    (set-keyboard-coding-system 'utf-8-mac))
  (setq locale-coding-system 'utf-8)
  (set-default-coding-systems 'utf-8)
