From 55f656a88da1fe8d5259d740f72e1798c59e1752 Mon Sep 17 00:00:00 2001
From: zk_phi <zerokay_phi@yahoo.co.jp>
Date: Thu, 19 Jun 2014 21:57:18 +0900
Subject: [PATCH] use matching instead of hard-coding

---
 spray.el | 3 +--
 1 file changed, 1 insertion(+), 2 deletions(-)

diff --git a/spray.el b/spray.el
index 77bff8e..aab9f8e 100644
--- 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 ()
-- 
2.30.2