>>439のつづき
すべてを含むと、こんなかんじ。私はこれをこのまま.emacsに
書いてます。

;; jamming へのインタフェース
(require 'thingatpt)

(defun jamming-lookup (word)
(do-applescript
(replace-regexp-in-string "TheWord" (read-from-minibuffer "Jamming: " word)
"tell application \"Jamming\" \r activate \r search \"TheWord\" \r end tell")))

(defun jamming-lookup-region (start end)
(interactive "r")
(jamming-lookup (buffer-substring-no-properties start end)))

(defun jamming-lookup-word ()
(interactive)
(jamming-lookup (word-at-point)))

(global-set-key "\M-l" 'jamming-lookup-word)