[slime-cvs] CVS slime

[CVS User sboukarev]

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

Modified Files:
	ChangeLog slime.el 
Log Message:
* slime.el (slime-maybe-complete-as-filename): Limit backward
search for #\", it slows down on large buffers.
Reported by Raymond Toy.


--- /project/slime/cvsroot/slime/ChangeLog	2010/08/15 19:13:56	1.2125
+++ /project/slime/cvsroot/slime/ChangeLog	2010/08/20 02:48:18	1.2126
@@ -1,3 +1,9 @@
+2010-08-20  Stas Boukarev  <stassats at gmail.com>
+
+	* slime.el (slime-maybe-complete-as-filename): Limit backward
+	search for #\", it slows down on large buffers.
+	Reported by Raymond Toy.
+
 2010-08-15  Stas Boukarev  <stassats at gmail.com>
 
 	* swank.lisp (setup-server): Check the coding system before doing
--- /project/slime/cvsroot/slime/slime.el	2010/08/04 18:20:22	1.1331
+++ /project/slime/cvsroot/slime/slime.el	2010/08/20 02:48:18	1.1332
@@ -3652,11 +3652,11 @@
 (defun slime-maybe-complete-as-filename ()
   "If point is at a string starting with \", complete it as filename.
 Return nil if point is not at filename."
-  (if (save-excursion (re-search-backward "\"[^ \t\n]+\\=" nil t))
-      (let ((comint-completion-addsuffix '("/" . "\"")))
-        (comint-replace-by-expanded-filename)
-        t)
-    nil))
+  (when (save-excursion (re-search-backward "\"[^ \t\n]+\\=" (max (point-min)
+                                                                  (- (point) 1000)) t))
+    (let ((comint-completion-addsuffix '("/" . "\"")))
+      (comint-replace-by-expanded-filename)
+      t)))
 
 (defun slime-minibuffer-respecting-message (format &rest format-args)
   "Display TEXT as a message, without hiding any minibuffer contents."