>>462
(defun sjis-byte-list-escape (lst)
(cond
((null lst) nil)
((= (car lst) 92)
(append (list 92 (car lst)) (sjis-byte-list-escape (cdr lst))))
(t (cons (car lst) (sjis-byte-list-escape (cdr lst))))))

(defun string-to-sjis-string-with-escape (str)
"文字列をSJISエンコード文字列に変換してさらに\"\\\"をエスケープ"
(char-list-to-string
(sjis-byte-list-escape
(string-to-char-list
(encode-coding-string str 'sjis)))))

これ、使ったらうまくいきませんか？