gistfile1.lisp

(if (equal system-type 'darwin)
    (progn
      (setq one-buffer-one-frame nil)
      (cua-mode 0)
      (setq mac-command-modifier 'meta)
      (setq x-select-enable-clipboard t)
      (set-variable 'default-buffer-file-coding-system 'mac-roman-unix)
      (set-default-coding-systems 'mac-roman-unix)
      (set-selection-coding-system 'mac-roman)
      (set-keyboard-coding-system 'mac-roman)
      (prefer-coding-system 'mac-roman-unix)
      (setq-default cursor-type t)
      (setq browse-url-browser-function
            '(("." . browse-url-default-macosx-browser)))))