From b82e1528982908448a6c4cb9b18438a056821812 Mon Sep 17 00:00:00 2001 From: Henrik Lissner Date: Tue, 14 May 2019 20:15:13 -0400 Subject: [PATCH] Fix 9024d831 --- modules/editor/fold/autoload/fold.el | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/modules/editor/fold/autoload/fold.el b/modules/editor/fold/autoload/fold.el index 70d4ea362..ac1d9e2a6 100644 --- a/modules/editor/fold/autoload/fold.el +++ b/modules/editor/fold/autoload/fold.el @@ -46,11 +46,11 @@ (string= "" (string-trim (thing-at-point 'line)))) (defun +fold--hideshow-geq-or-empty-p (base-indent) - (or (+fold--hideshow-empty-line-p) + (or (+fold--hideshow-empty-line-p base-indent) (>= (current-indentation) base-indent))) (defun +fold--hideshow-g-or-empty-p (base-indent) - (or (+fold--hideshow-empty-line-p) + (or (+fold--hideshow-empty-line-p base-indent) (> (current-indentation) base-indent))) (defun +fold--hideshow-seek (start direction before skip predicate base-indent) @@ -86,4 +86,4 @@ begin and end of the block surrounding point." begin (+fold--hideshow-seek begin 1 nil nil #'+fold--hideshow-g-or-empty-p base-indent) end (+fold--hideshow-seek end 1 t nil #'+fold--hideshow-geq-or-empty-p base-indent) end (+fold--hideshow-seek end -1 nil nil #'+fold--hideshow-empty-line-p base-indent)) - (list begin end base)))) + (list begin end base-indent))))