Lennart Staflin - 2000-05-04

I think I have a fix for that. In toc.el:

(defun toc-encode (str)
;; Encloses STR in quotes and backslashes special characters in it.
;; rewrite by [lennarts/2000-04-13 11:45:53]
(concat "\""
(mapconcat (lambda (ch)
(if (or (< ch 32)
(> ch 127)
(memq ch
(eval-when-compile
(mapcar 'identity "()[]{}$\"'"))))
(format "\\%03o" ch)
(char-to-string ch)))
str "" )
"\""))