From 27f7a0b0a2e5202360a0ff3607e251dc52dbe7a8 Mon Sep 17 00:00:00 2001 From: Kyle Meyer Date: Fri, 9 Jan 2015 23:53:50 -0500 Subject: Replace looking-at calls with looking-at-p calls --- snakemake-mode.el | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) (limited to 'snakemake-mode.el') diff --git a/snakemake-mode.el b/snakemake-mode.el index e8a146a..dc3fb9f 100644 --- a/snakemake-mode.el +++ b/snakemake-mode.el @@ -147,9 +147,9 @@ rule blocks (or on a blank line directly below), call (let ((start-indent (current-indentation))) (beginning-of-line) (cond - ((looking-at (concat "^[ \t]*" snakemake-rule-or-subworkflow-re)) + ((looking-at-p (concat "^[ \t]*" snakemake-rule-or-subworkflow-re)) (delete-horizontal-space)) - ((looking-at (concat "^[ \t]*" snakemake-field-key-re)) + ((looking-at-p (concat "^[ \t]*" snakemake-field-key-re)) (delete-horizontal-space) (indent-to snakemake-indent-field-offset)) ((snakemake-run-field-first-line-p) @@ -174,7 +174,7 @@ rule blocks (or on a blank line directly below), call "Return t if point is in block or on first blank line following one." (save-excursion (beginning-of-line) - (when (looking-at "^ *$") + (when (looking-at-p "^ *$") (forward-line -1)) (end-of-line) (let ((start (point))) -- cgit v1.2.3