[slime-cvs] CVS slime/contrib

[CVS User sboukarev]

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

Modified Files:
	ChangeLog swank-fuzzy.lisp 
Log Message:
* swank-fuzzy.lisp (*fuzzy-completion-...*): Change defparameter
to defvar for easier customization.


--- /project/slime/cvsroot/slime/contrib/ChangeLog	2010/09/03 19:04:28	1.412
+++ /project/slime/cvsroot/slime/contrib/ChangeLog	2010/09/04 00:32:14	1.413
@@ -1,3 +1,8 @@
+2010-09-04  Stas Boukarev  <stassats at gmail.com>
+
+	* swank-fuzzy.lisp (*fuzzy-completion-...*): Change defparameter
+	to defvar for easier customization.
+
 2010-09-03  Stas Boukarev  <stassats at gmail.com>
 
 	* slime-repl.el (slime-search-property-change): XEmacs may return
--- /project/slime/cvsroot/slime/contrib/swank-fuzzy.lisp	2010/04/19 00:42:29	1.10
+++ /project/slime/cvsroot/slime/contrib/swank-fuzzy.lisp	2010/09/04 00:32:14	1.11
@@ -521,15 +521,15 @@
 
 ;;;;; Fuzzy completion scoring
 
-(defparameter *fuzzy-completion-symbol-prefixes* "*+-%&?<"
+(defvar *fuzzy-completion-symbol-prefixes* "*+-%&?<"
   "Letters that are likely to be at the beginning of a symbol.
 Letters found after one of these prefixes will be scored as if
 they were at the beginning of ths symbol.")
-(defparameter *fuzzy-completion-symbol-suffixes* "*+->"
+(defvar *fuzzy-completion-symbol-suffixes* "*+->"
   "Letters that are likely to be at the end of a symbol.
 Letters found before one of these suffixes will be scored as if
 they were at the end of the symbol.")
-(defparameter *fuzzy-completion-word-separators* "-/."
+(defvar *fuzzy-completion-word-separators* "-/."
   "Letters that separate different words in symbols.  Letters
 after one of these symbols will be scores more highly than other
 letters.")
@@ -622,4 +622,4 @@
           (format t "~&~VA  score ~8,2F  ~A"
                   max-len (highlight-completion result sym) score result))))
 
-(provide :swank-fuzzy)
\ No newline at end of file
+(provide :swank-fuzzy)