Workaround for Emacs (MacOS) bug where you can't set :height too large

gistfile1.el

;; Workaround for Emacs (MacOS) bug where you can't set :height too large.
;;
;; Bug is described here: http://emacswiki.org/emacs/SetFonts#toc14
;;
;; This workaround is taken from http://www.emacswiki.org/emacs/GlobalTextScaleMode
;; If it interacts badly with some minor modes, that link offers an explanation.
;;
;; Also, the modeline will still be the smaller size. The minibuffer will also start out small,
;; but get bigger if you type into it.

(define-globalized-minor-mode 
  global-text-scale-mode
  text-scale-mode
  (lambda () (text-scale-mode 1)))

(defun global-text-scale-adjust (inc) (interactive)
       (text-scale-set 1)
       (kill-local-variable 'text-scale-mode-amount)
       (setq-default text-scale-mode-amount (+ text-scale-mode-amount inc))
       (global-text-scale-mode 1))

;; Example: you want Monaco 14, but that'd clip your frames' tops?
;; Try this:
(set-face-attribute 'default nil :family "Monaco" :height 120)
(global-text-scale-adjust 1)