Hi guys,
I've finally got a bit of time free, so I thought I'd take a look at a
few of the outstanding bugs. I've added a tla-update-like interface to
tla-replay, but I found it to be painfully slow due to tla-unescape.
This seems to be called many times when building the changes buffer, and
each call requires tla to be run synchronously.
I'm not all that familiar with tla's new file escaping stuff, but could
we have our own elisp implementation instead? Something fairly simple
like:
(defvar tla-escape-mapping
'((?\t . "\\(tab)") (?\n . "\\(nl)") (?\r . "\\(cr)") (?\f . "\\(np)")
(?\ . "\\(sp)") (?\\ . "\\\\") (?\" . "\\\"")))
(defun my-tla-escape (string)
(mapconcat (lambda (c)
(or (cdr (assoc c tla-escape-mapping))
(string c)))
(string-to-list string) ""))
(defun my-tla-unescape (string)
(with-temp-buffer
(insert string)
(mapc (lambda (mapping)
(replace-string (cdr mapping) (string (car mapping)) nil
(point-min) (point-max)))
tla-escape-mapping)
(buffer-string)))
seems to work for me. Duplicating the code from tla isn't ideal, but I
can't think of a better way. Any thoughts?
Mark
--
Mark Triggs
<[EMAIL PROTECTED]>
