- (> curr-width outermost-width)))
- (cons curr-width curr-range)
- best-pair)))
- (lsp--get-folding-ranges)
- nil)))
-
- (defun lsp--folding-range-at-point-bounds ()
- (when (and lsp-enable-folding
- (lsp-feature? "textDocument/foldingRange"))
- (if-let ((range (lsp--get-current-innermost-folding-range)))
- (cons (lsp--folding-range-beg range)
- (lsp--folding-range-end range)))))
- (put 'lsp--folding-range 'bounds-of-thing-at-point
- #'lsp--folding-range-at-point-bounds)
-
- (defun lsp--get-nearest-folding-range (&optional backward)
- (let ((point (point))
- (found nil))
- (while (not
- (or found
- (if backward