Mac用 Emacs 設定

とりあえずはこんな感じ。

(setq inhibit-startup-screen t)
;;; Font Configurations
;;; If using Window-System, configure myfavoritefontset
(when window-system
  (global-set-key [ns-drag-file] 'ns-find-file)
  (defvar fixed-width-use-QuickDraw-for-ascii t)
  (create-fontset-from-ascii-font "Inconsolata:slant=normal" nil "myfavoritefontset")
  (set-fontset-font "fontset-myfavoritefontset"
		    'japanese-jisx0208 ;'unicode
		    (font-spec :family "MeiryoKe_Console" :size 12)
		    nil
		    'append)
  (add-to-list 'default-frame-alist '(font . "fontset-myfavoritefontset")))
(defvar edit-server-new-frame-alist nil)
(defvar mac-pass-command-to-system nil)
(defvar mac-pass-control-to-system nil)

;;; Disable synchronization between Emacs kill-ring and OS clipboard
(require 'simpleclip)
(cond ((and (fboundp 'ns-set-pasteboard)
	    (fboundp 'ns-get-pasteboard))
       ; cocoa-emacs.
       (simpleclip-mode nil)
       (setq interprogram-cut-function nil)
       (setq interprogram-paste-function nil)
       (defun paste-from-clipboard ()
	 (interactive)
	 (and mark-active
	      (filter-buffer-substring (region-beginning) (region-end) t))
	 (insert (ns-get-pasteboard)))
       (defun copy-to-clipboard (p1 p2)
	 (interactive "r*")
	 (ns-set-pasteboard (buffer-substring p1 p2))
	 (message "Copied selection to clipboard"))
       (defun cut-to-clipboard (p1 p2)
	 (interactive "r*")
	 (ns-set-pasteboard (filter-buffer-substring p1 p2 t)))
       (global-set-key "\C-cx" 'cut-to-clipboard);[f5]"\C-cx"
       (global-set-key "\C-cc" 'copy-to-clipboard);[f6]"\C-cc"
       (global-set-key "\C-cv" 'paste-from-clipboard));[f7]"\C-cv")
      (t
       ; The emacs installed by port 
       (simpleclip-mode 1)
       (global-set-key "\C-cx" 'simpleclip-cut)
       (global-set-key "\C-cc" 'simpleclip-copy)
       (global-set-key "\C-cv" 'simpleclip-paste)))

;;; Key bindings
(global-set-key "\C-\\" 'toggle-input-method)

うーん、ブラウザ上だとバックスラッシュが円マークになってしまうな。