[slime-cvs] CVS slime/contrib

[CVS User sboukarev]

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

Modified Files:
	ChangeLog slime-c-p-c.el 
Log Message:
* slime-c-p-c.el (slime-complete-form): Limit `looking-back' too.


--- /project/slime/cvsroot/slime/contrib/ChangeLog	2010/07/28 15:28:21	1.404
+++ /project/slime/cvsroot/slime/contrib/ChangeLog	2010/07/29 08:05:22	1.405
@@ -1,3 +1,7 @@
+2010-07-29  Stas Boukarev  <stassats at gmail.com>
+
+	* slime-c-p-c.el (slime-complete-form): Limit `looking-back' too.
+
 2010-07-28  Stas Boukarev  <stassats at gmail.com>
 
 	* slime-presentations.el (slime-copy-presentation-to-repl): Limit
--- /project/slime/cvsroot/slime/contrib/slime-c-p-c.el	2010/05/28 14:15:30	1.25
+++ /project/slime/cvsroot/slime/contrib/slime-c-p-c.el	2010/07/29 08:05:22	1.26
@@ -160,7 +160,9 @@
       (if (eq result :not-available)
           (error "Could not generate completion for the form `%s'" buffer-form)
           (progn
-            (just-one-space (if (looking-back "\\s(") 0 1))
+            (just-one-space (if (looking-back "\\s(" (1- (point)))
+                                0
+                                1))
             (save-excursion
               (insert result)
               (let ((slime-close-parens-limit 1))