>>435
関数 jamming-lookup の引数 word が SJIS になってないに１票。

(defun flatten-list (l)
"ネストしたリストを平にする。string-to-sjis-stringのための関数"
(cond
((null l) nil)
((atom (car l)) (cons (car l) (flatten-list (cdr l))))
(t (append (flatten-list (car l)) (flatten-list (cdr l))))))

(defun string-to-sjis-string (str)
"文字列をSJISにencodeしたバイト列に変換する"
(char-list-to-string
(flatten-list
(mapcar
(lambda (i)
(let ((val (encode-sjis-char i)))
(list (/ val 256) (% val 256))))
str))))

ってのを作って

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

みたいにしたら日本語もOKになるかも。Jamming っての使ってないから未確認。
もっと簡単にSJIS文字列に変換する方法あったら教えて＞識者の方