From de87bc619ce0aa53922119a5b8c316dc95d10d97 Mon Sep 17 00:00:00 2001
From: David Aspinall
Date: Sun, 17 Feb 2008 11:57:54 +0000
Subject: Remove left over propertise experiment call; fixes #202

---
 lib/unicode-tokens.el | 12 ++++--------
 1 file changed, 4 insertions(+), 8 deletions(-)

(limited to 'lib')

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)))))
 
 
-- 
cgit v1.2.3