    ;; Otherwise we just do our line-based hack.
    (t
     (save-excursion
-      (let ((start (or (flet
-                           ((jump ()
+      (let ((start (or (cl-letf
+                           (((symbol-function 'jump) #'(lambda ()
                                   (search-backward-regexp "^[^ \n]" nil t 1)
                                   (cond
                                    ((save-excursion (goto-char (line-beginning-position))

                                    (jump))
                                   (t (unless (or (looking-at "^-}$")
                                                  (looking-at "^{-$"))
                                        (point))))))
                         (goto-char (line-end-position))
                         (jump))
                       0))
            (end (progn (goto-char (1+ (point)))
                        (or (flet
                                ((jump ()
                                       (when (search-forward-regexp "[\n]+[^ \n]" nil t 1)
                                         (cond
                                          ((save-excursion (goto-char (line-beginning-position))

                                          (t (forward-char -1)
                                             (search-backward-regexp "[^\n ]" nil t)
                                             (forward-char)
                                             (point)))))))
                              (jump))
                            (point-max)))))
        (cons start end))))))
