From e146047bd597cbfa7300bc1779ce044fb2de9469 Mon Sep 17 00:00:00 2001
From: Kyle Meyer <kyle@kyleam.com>
Date: Thu, 1 Jan 2015 22:59:36 -0500
Subject: snakemake-run-field-first-line-p: Simplify

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

diff --git a/snakemake-mode.el b/snakemake-mode.el
index 385be8d..ecb215f 100644
--- a/snakemake-mode.el
+++ b/snakemake-mode.el
@@ -186,8 +186,7 @@ rule blocks (or on a blank line directly below), call
   (save-excursion
     (forward-line -1)
     (beginning-of-line)
-    (and (re-search-forward "^[ \t]+run:" (point-at-eol) t)
-         t)))
+    (looking-at-p "^[ \t]+run:")))
 
 (defun snakemake-run-field-line-p ()
   "Return t if point is on any line below a run field key.
-- 
cgit v1.2.3