 ;;----------------------------------------------------------------------------
 (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))
 

;;----------------------------------------------------------------------------
;; Automatically byte-compile .el files
;;----------------------------------------------------------------------------
(setq byte-compile-warnings t)
(setq byte-cache-directory nil)
(setq bcc-enabled-on-save t)
(setq bcc-blacklist '("/\\.recentf$" "/history$" "/\\.ecb-user-layouts\\.el$" "/\\.session$"
		      "/\\.emacs-project$" "/\\.emacs\\.desktop$" "/custom\\.el$" "/init\\.el$"
		      "/\\.ido\\.last$" "/\\.ecb-tip-of-day\\.el$" "/\\.viper$" "/\\.recentf$"))
(require 'byte-code-cache)




;; Color themes
;;----------------------------------------------------------------------------
(require 'color-theme-autoloads)
(when *is-carbon-emacs*
  (color-theme-initialize)
  ;; (color-theme-pierson) ; Light, favourite
  ;; (color-theme-high-contrast)
  ;; (color-theme-snowish)
  ;; (color-theme-marquardt)
  ;; (color-theme-clarity) ; dark
  ;; (color-theme-dark-laptop) ; dark
  ;; (color-theme-billw) ; dark
  ;; (color-theme-oswald) ; dark
  (color-theme-taylor) ; dark
  ;; (color-theme-standard)

  ;; Set default font size after setting color theme, otherwise wrong size
  ;; is used for new frames
  (steve-set-default-font-size))
