From 78a9071c13dd4c457a962ab47289ee9ac3847db2 Mon Sep 17 00:00:00 2001 From: Kyle Meyer Date: Mon, 16 May 2016 15:44:19 -0400 Subject: Don't use prog-widen and prog-first-column These functions aren't in Emacs 24.* and have been removed from the emacs-25 branch. See Emacs 124c486 (Remove prog-indentation-context, 2016-03-28). --- snakemake-mode.el | 9 ++++----- 1 file changed, 4 insertions(+), 5 deletions(-) (limited to 'snakemake-mode.el') diff --git a/snakemake-mode.el b/snakemake-mode.el index c181290..8e60631 100644 --- a/snakemake-mode.el +++ b/snakemake-mode.el @@ -138,7 +138,7 @@ "Return description of rule or subworkflow block at point." (save-excursion (save-restriction - (prog-widen) + (widen) (let ((pos (point))) (end-of-line) (and (re-search-backward snakemake-rule-or-subworkflow-re nil t) @@ -234,11 +234,10 @@ returned." ;; :after-block-start. :after-block-start)) (let* ((initial-indent (current-indentation)) - (first-col (prog-first-column)) - (goto-first-p (or (not previous) (= initial-indent first-col)))) + (goto-first-p (or (not previous) (= initial-indent 0)))) (save-excursion (save-restriction - (prog-widen) + (widen) (beginning-of-line) (if (or (looking-at-p (concat "^\\s-*" snakemake-field-key-re)) (looking-at-p (rx line-start @@ -274,7 +273,7 @@ returned." ((save-excursion (let ((above-indent (current-indentation)) field-indent) - (when (> above-indent first-col) + (when (> above-indent 0) (while (and (not (bobp)) (or (= above-indent (setq field-indent (current-indentation))) -- cgit v1.2.3