[slime-cvs] CVS slime/contrib

[CVS User sboukarev]

Update of /project/slime/cvsroot/slime/contrib
In directory cl-net:/tmp/cvs-serv3596

Modified Files:
	ChangeLog slime-presentations.el 
Log Message:
* slime-presentations.el (slime-copy-presentation-to-repl): Limit
looking-back to one character before point. Solves long freeze on a
large buffer.


--- /project/slime/cvsroot/slime/contrib/ChangeLog	2010/07/27 05:10:03	1.403
+++ /project/slime/cvsroot/slime/contrib/ChangeLog	2010/07/28 15:28:21	1.404
@@ -1,3 +1,9 @@
+2010-07-28  Stas Boukarev  <stassats at gmail.com>
+
+	* slime-presentations.el (slime-copy-presentation-to-repl): Limit
+	looking-back to one character before point. Solves long freeze on a
+	large buffer.
+
 2010-07-27  Stas Boukarev  <stassats at gmail.com>
 
 	* slime-sprof.el (slime-sprof-start): change defun to defun*,
--- /project/slime/cvsroot/slime/contrib/slime-presentations.el	2010/05/28 14:15:30	1.36
+++ /project/slime/cvsroot/slime/contrib/slime-presentations.el	2010/07/28 15:28:21	1.37
@@ -435,7 +435,7 @@
     (unless (eql major-mode 'slime-repl-mode)
       (slime-switch-to-output-buffer))
     (flet ((do-insertion ()
-	     (unless (looking-back "\\s-")
+	     (unless (looking-back "\\s-" (- (point) 1))
 	       (insert " "))
 	     (insert presentation-text)
 	     (unless (or (eolp) (looking-at "\\s-"))
@@ -841,4 +841,4 @@
    (in-sldb-face local-value value)
    `(:frame-var ,slime-current-thread ,(car frame) ,index) t))
 
-(provide 'slime-presentations)
\ No newline at end of file
+(provide 'slime-presentations)