Emacs で編集中のファイルが入っているフォルダ（ディレクトリ）を Finder/Terminal で開く。 ショートカットは ⌘-Shift-Option-F と ⌘-Shift-Option-T。

gistfile1.el

;;; Finder でフォルダを開く
;; ショートカット: ⌘-option-shift-F
;; (ショートカットは USキーボードで確認）
(define-key global-map [?\s-Ï] 'MyTool-open-folder-in-finder)
(defun MyTool-open-folder-in-finder ()
  "open -a Finder.app CURRENT-DIRECTORY"
  (interactive)
  (process-query-on-exit-flag 
   (start-process-shell-command "open folder in Finder" nil "open .")))

;;; Terminal でフォルダを開く
;; ショートカット: ⌘-option-shift-T
;; (ショートカットは USキーボードで確認）
(define-key global-map [?\s-ˇ] 'MyTool-open-Terminal)
(defun MyTool-open-Terminal()
  "open -a Terminal.app CURRENT-DIRECTORY"
  (interactive)
  (let* ((cmd "open -a Terminal.app"))
    (process-kill-without-query
     (start-process-shell-command 
      "Open directory" nil cmd default-directory))))