Emacs の dired でファイルを拡張子に適したアプリケーションで開く(Ubuntu)

以下のコードを .emacs に記述すれば、dired で o を入力したときに、カーソル位置のファイルを Nautilus でダブルクリックしたときと同じアプリケーションで開ける。

(defun dired-open-file ()
  "In dired, open the file named on this line."
  (interactive)
  (let* ((file (dired-get-filename)))
    (message "Opening %s..." file)
    (call-process "gnome-open" nil 0 nil file)
    (message "Opening %s done" file)))

(define-key dired-mode-map "o" 'dired-open-file)