[slime-cvs] CVS update: slime/slime.el

[Helmut Eller]

Update of /project/slime/cvsroot/slime
In directory common-lisp.net:/tmp/cvs-serv4968

Modified Files:
	slime.el 
Log Message:
(slime-global-variable-name-p): Return true for names of constants
like +foo+.

Date: Sun Dec  5 15:49:40 2004
Author: heller

Index: slime/slime.el
diff -u slime/slime.el:1.434 slime/slime.el:1.435
--- slime/slime.el:1.434	Thu Dec  2 18:10:43 2004
+++ slime/slime.el	Sun Dec  5 15:49:39 2004
@@ -3902,6 +3902,7 @@
         (re-search-forward 
          (format "\\s *(def\\(\\s_\\|\\sw\\)*\\s +%s\\>" name) nil t)
         (re-search-forward 
+         ;; FIXME: Isn't this far to general?
          (format "[( \t]%s\\>\\(\\s \\|$\\)" name) nil t)))
      (goto-char (match-beginning 0)))
     ;; Looks for a sequence of words (def<something> method name
@@ -4271,7 +4272,7 @@
 (defun slime-global-variable-name-p (name)
   "Is NAME a global variable?
 Globals are recognised purely by *this-naming-convention*."
-  (string-match "^\\(.*::?\\)?\\*.*\\*$" name))
+  (string-match "^\\(.*::?\\)?[*+].*[*+]$" name))
 
 (defun slime-get-cached-autodoc (symbol-name)
   "Return the cached autodoc documentation for SYMBOL-NAME, or nil."