diff options
| author | Kyle Meyer <kyle@kyleam.com> | 2016-02-28 12:28:05 -0500 |
|---|---|---|
| committer | Kyle Meyer <kyle@kyleam.com> | 2016-02-28 12:29:51 -0500 |
| commit | c44f74a155d27cb558e488513dbf21fccce5a6a3 (patch) | |
| tree | 29827ed76f17045c7196c910c4fc138a141d51ee /snakemake-mode.el | |
| parent | ddf1ba288005848d64cf97354db5a67598b4a029 (diff) | |
| download | snakemake-mode-c44f74a155d27cb558e488513dbf21fccce5a6a3.tar.gz | |
Fix rule recognition at beginning of buffer
Diffstat (limited to 'snakemake-mode.el')
| -rw-r--r-- | snakemake-mode.el | 8 |
1 files changed, 5 insertions, 3 deletions
diff --git a/snakemake-mode.el b/snakemake-mode.el index 2e40b7b..368c4c3 100644 --- a/snakemake-mode.el +++ b/snakemake-mode.el @@ -229,9 +229,11 @@ Indent according the the first case below that is true. (when (funcall blank-p) (forward-line -1)) (catch 'in-block - (while (not (or (bobp) (funcall blank-p))) - (when (looking-at-p snakemake-rule-or-subworkflow-re) - (throw 'in-block t)) + (while (not (funcall blank-p)) + (cond ((looking-at-p snakemake-rule-or-subworkflow-re) + (throw 'in-block t)) + ((bobp) + (throw 'in-block nil))) (forward-line -1)))))) (defun snakemake-below-naked-field-p () |