[slime-cvs] CVS slime

[heller]

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

Modified Files:
	slime.el 
Log Message:
(slime-global-variable-name-p): Oops... need to handle very long strings.


--- /project/slime/cvsroot/slime/slime.el	2006/10/29 10:15:09	1.680
+++ /project/slime/cvsroot/slime/slime.el	2006/10/30 13:59:24	1.681
@@ -5669,10 +5669,11 @@
   (when-let (name (slime-symbol-name-at-point))
     (if (slime-global-variable-name-p name) name)))
 
-(defun* slime-global-variable-name-p (name)
+(defun slime-global-variable-name-p (name)
   "Is NAME a global variable?
 Globals are recognised purely by *this-naming-convention*."
-  (string-match "^\\(.*:\\)?\\([*+]\\).+\\2$" name))
+  (and (< (length name) 80) ; avoid overflows in regexp matcher
+       (string-match "^\\(.*:\\)?\\([*+]\\).+\\2$" name)))
 
 (defun slime-get-cached-autodoc (symbol-name)
   "Return the cached autodoc documentation for SYMBOL-NAME, or nil."