diff options
| author | Kyle Meyer <kyle@kyleam.com> | 2015-01-09 23:53:50 -0500 |
|---|---|---|
| committer | Kyle Meyer <kyle@kyleam.com> | 2015-01-09 23:53:50 -0500 |
| commit | 27f7a0b0a2e5202360a0ff3607e251dc52dbe7a8 (patch) | |
| tree | b2c661d3a95e5dc72645127f2dc4e5d558d3bfe5 | |
| parent | 69bc72f551c46feae74a8b59d63096a164eeaa1a (diff) | |
| download | snakemake-mode-27f7a0b0a2e5202360a0ff3607e251dc52dbe7a8.tar.gz | |
Replace looking-at calls with looking-at-p calls
| -rw-r--r-- | snakemake-mode.el | 6 |
1 files changed, 3 insertions, 3 deletions
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))) |