[slime-cvs] CVS slime

[mkoeppe]

Update of /project/slime/cvsroot/slime
In directory clnet:/tmp/cvs-serv9256

Modified Files:
	slime.el 
Log Message:
(slime-fontify-string): Use set-text-properties, not
propertize, for Emacs 20 compatibility.  Patch by Matthew D. Swank


--- /project/slime/cvsroot/slime/slime.el	2006/03/30 16:41:52	1.614
+++ /project/slime/cvsroot/slime/slime.el	2006/04/01 22:54:30	1.615
@@ -5267,7 +5267,9 @@
       (font-lock-fontify-buffer))
     (goto-char (point-min))
     (when (re-search-forward "===> \\(\\(.\\|\n\\)*\\) <===" nil t)
-      (let ((highlight (propertize (match-string 1) 'face 'highlight)))
+      (let ((highlight (copy-sequence (match-string 1))))
+        ;;maintain compatibility with emacs 20.x
+        (set-text-properties 0 (length highlight) '(face highlight) highlight)
         ;; Can't use (replace-match highlight) here -- broken in Emacs 21
         (delete-region (match-beginning 0) (match-end 0))
         (insert highlight)))