Cocoa Emacs23 で コマンド+i 押すと そのファイルのディレクトリを Finder で表示するようにしてみた

http://homepage.mac.com/zenitani/emacs-j.html にあったんだけども、Cocoa Emacs23 には無かったのでとりあえず書いてみた。

(環境：MacOSX10.6, Cocoa Emacs23)

(defvar is_mac (or (eq window-system 'mac) (featurep 'ns)))

(defun show-in-finder-for-mac()
  (interactive)
  (shell-command (concat "open " default-directory))
)

(when is_mac
  (global-set-key (kbd "s-i") 'show-in-finder-for-mac)
  )

こんなんでよいのかな。
設定は OS が Mac の時のみ動くようにしてみた。