Changeset 996

Timestamp:

04/05/09 16:50:54 (3 years ago)

Author:

james

Message:

fix stop word list

File:

• trunk/plugins/en/complex_spoonerism.tcl (modified) (1 diff)

trunk/plugins/en/complex_spoonerism.tcl

@@ -57 +57 @@
 
         if [regexp -nocase {([a-z]+)less ([a-z]+)\M} $text matches one two] {
-                if [regexp -nocase "(unless|useless)" $one] {
+                if [regexp -nocase "(un|use)" $one] {
                         return 0
                 }