use matching instead of hard-coding
[spray] / spray.el
index 77bff8e95214da58b6005d085e749abe666d93db..aab9f8e1988a0e9ada1e137e70f5542ef6a97106 100644 (file)
--- a/spray.el
+++ b/spray.el
@@ -130,8 +130,7 @@ an integer or a float value."
          (spray-start/stop -1))))
 
 (defun spray--pre-command-handler ()
-  (unless (memq this-command
-                '(spray-forward-word spray-backward-word spray-start/stop))
+  (unless (string-match "^spray-" (symbol-name this-command))
     (spray-mode -1)))
 
 (defun spray--word-at-point ()