ありがとうございました。
まとめると結局、↓のようなコードを.emacsに書くことになりました。


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

(defun jamming-lookup (word)
(do-applescript
(encode-coding-string
(concat
"tell application \"Jamming\" \r activate \r search \""
(read-from-minibuffer "Jamming: " word)
"\" \r end tell") 'sjis-mac)))

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

(defun jamming-lookup-word ()
"Lookup the word at point with Jamming."
(interactive)
(jamming-lookup (word-at-point)))

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