OSX Version of rand00's copy function

gistfile1.el

(defun copy-to-clipboard ()
  (interactive)
  (if (region-active-p)
      (progn (shell-command-on-region 
              (region-beginning) (region-end) 
              "pbcopy")
             (message "Copied region to clipboard!")
             (deactivate-mark))
    (message "No mark set.")))

;; optional    
(defun copy-whole-buffer-to-clipboard ()
  (interactive)
  (mark-whole-buffer)
  (copy-to-clipboard))

(global-set-key (kbd "C-c c") 'copy-to-clipboard)
(global-set-key (kbd "C-c M-c") 'copy-whole-buffer-to-clipboard)