[slime-cvs] CVS slime

[mbaringer]

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

Modified Files:
	slime.el 
Log Message:
(slime-global-variable-name-regexp): New variable.
(slime-global-variable-name-p): Use slime-global-variable-name-regexp.


--- /project/slime/cvsroot/slime/slime.el	2006/10/30 13:59:24	1.681
+++ /project/slime/cvsroot/slime/slime.el	2006/10/30 14:59:25	1.682
@@ -5669,11 +5669,18 @@
   (when-let (name (slime-symbol-name-at-point))
     (if (slime-global-variable-name-p name) name)))
 
+(defcustom slime-global-variable-name-regexp "^\\(.*:\\)?\\([*+]\\).+\\2$"
+  "Regexp used to check if a symbol name is a global variable.
+
+Default value assumes +this+ or *that* naming conventions."
+  :type 'regexp
+  :group 'slime)
+
 (defun slime-global-variable-name-p (name)
   "Is NAME a global variable?
 Globals are recognised purely by *this-naming-convention*."
   (and (< (length name) 80) ; avoid overflows in regexp matcher
-       (string-match "^\\(.*:\\)?\\([*+]\\).+\\2$" name)))
+       (string-match slime-global-variable-name-regexp name)))
 
 (defun slime-get-cached-autodoc (symbol-name)
   "Return the cached autodoc documentation for SYMBOL-NAME, or nil."