[slime-cvs] CVS slime

[CVS User sboukarev]

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

Modified Files:
	ChangeLog slime.el 
Log Message:
* slime.el (slime-beginning-of-symbol): Limit searching to 2000
characters.


--- /project/slime/cvsroot/slime/ChangeLog	2009/07/02 14:14:33	1.1805
+++ /project/slime/cvsroot/slime/ChangeLog	2009/07/02 17:00:21	1.1806
@@ -1,3 +1,8 @@
+2009-07-02  Stas Boukarev  <stassats at gmail.com>
+
+	* slime.el (slime-beginning-of-symbol): Limit searching to 2000
+	characters.
+
 2009-07-02  Terje Norderhaug <terje at in-progress.com>
 
 	* swank-lispworks.lisp (thread-attributes): Implemented.
--- /project/slime/cvsroot/slime/slime.el	2009/07/02 14:14:26	1.1195
+++ /project/slime/cvsroot/slime/slime.el	2009/07/02 17:00:21	1.1196
@@ -8309,7 +8309,8 @@
 (defun slime-beginning-of-symbol ()
   "Move to the beginning of the CL-style symbol at point."
   (while (re-search-backward "\\(\\sw\\|\\s_\\|\\s\\.\\|\\s\\\\|[#@|]\\)\\=" 
-                             nil t))
+                             (when (> (point) 2000) (- (point) 2000))
+                             t))
   (re-search-forward "\\=#[-+.<|]" nil t)
   (when (and (looking-at "@") (eq (char-before) ?\,))
     (forward-char)))