use matching instead of hard-coding
authorzk_phi <zerokay_phi@yahoo.co.jp>
Thu, 19 Jun 2014 12:57:18 +0000 (21:57 +0900)
committerzk_phi <zerokay_phi@yahoo.co.jp>
Thu, 19 Jun 2014 12:57:18 +0000 (21:57 +0900)
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 ()