emenel/doomemacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

Fix 9024d831

Browse source
This commit is contained in:
Henrik Lissner 2019-05-14 20:15:13 -04:00
parent 75777756e1
commit b82e152898
No known key found for this signature in database
GPG key ID: 5F6C0EA160557395
1 changed files with 3 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

6
modules/editor/fold/autoload/fold.el
View file

@ -46,11 +46,11 @@
(string= "" (string-trim (thing-at-point 'line)))) (string= "" (string-trim (thing-at-point 'line))))
(defun +fold--hideshow-geq-or-empty-p (base-indent) (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))) (>= (current-indentation) base-indent)))
(defun +fold--hideshow-g-or-empty-p (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))) (> (current-indentation) base-indent)))
(defun +fold--hideshow-seek (start direction before skip predicate 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) 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 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)) end (+fold--hideshow-seek end -1 nil nil #'+fold--hideshow-empty-line-p base-indent))
(list begin end base)))) (list begin end base-indent))))