From: zk_phi <zerokay_phi@yahoo.co.jp>
Date: Thu, 19 Jun 2014 12:57:18 +0000 (+0900)
Subject: use matching instead of hard-coding
X-Git-Url: https://iankelling.org/git/?a=commitdiff_plain;h=55f656a88da1fe8d5259d740f72e1798c59e1752;p=spray

use matching instead of hard-coding
---

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 ()