Emacsにおいてカーソル下の単語をMacの辞書で調べるときのhack

関数の本体はどこかにあった設定を参考にさせていただいた。
my-dictが表題に沿った関数。my-dict2は自分で検索語句を入力する関数。

(defun my-dict () (interactive)
   (let ((url (concat "dict://" (read-from-minibuffer "Search: " (current-word))))
         (browse-url-browser-function 'browse-url-default-browser))
     (browse-url url)))

(defun my-dict2 (key) (interactive "MSearch: ")
   (let ((url (concat "dict://" key))
         (browse-url-browser-function 'browse-url-default-browser))
     (browse-url url)))

(global-set-key  (kbd "C-: C-d") 'my-dict)
(global-set-key  (kbd "C-: C-s") 'my-dict2)