diff options
| author | David Aspinall | 2008-02-17 11:57:54 +0000 |
|---|---|---|
| committer | David Aspinall | 2008-02-17 11:57:54 +0000 |
| commit | de87bc619ce0aa53922119a5b8c316dc95d10d97 (patch) | |
| tree | f9850f3906e134e476847c11fc8ce5fa731653b6 | |
| parent | 5bf7a90ba700b3c5c42617bbfe7e6e62fac9e8d7 (diff) | |
Remove left over propertise experiment call; fixes #202
| -rw-r--r-- | lib/unicode-tokens.el | 12 |
1 files changed, 4 insertions, 8 deletions
diff --git a/lib/unicode-tokens.el b/lib/unicode-tokens.el index 704fe77b..09347097 100644 --- a/lib/unicode-tokens.el +++ b/lib/unicode-tokens.el @@ -604,12 +604,6 @@ after next character (single character control sequence)." string) string) - - - - - - (defun unicode-tokens-unicode-to-tokens (&optional start end buffer) "Encode a buffer to save as a tokenised file." (let ((case-fold-search proof-case-fold-search) @@ -623,8 +617,10 @@ after next character (single character control sequence)." unicode-tokens-annotation-translations 'unicode-tokens-make-token-annotation unicode-tokens-ignored-properties)) - (unicode-tokens-replace-strings-unpropertise) - ;; was: format-replace-strings unicode-tokens-ustring-alist nil (point-min) (point-max)) +;; alternative experiment: store original tokens inside text properties +;; (unicode-tokens-replace-strings-unpropertise) + (format-replace-strings unicode-tokens-ustring-alist + nil (point-min) (point-max)) (set-buffer-modified-p modified))))) |