関数の本体はどこかにあった設定を参考にさせていただいた。
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)