Get eval-defun to find a non-toplevel defun/defvar nearest to the point

tweak-eval-defun.el

;; (require 'smartparens)

(defun eval-defun:inner-def (orig-func &rest args)
  (cl-letf*
      (((symbol-function #'beginning-of-defun)
        (lambda (&optional arg)
          (let (pos)
            (save-match-data
              (cl-loop
               do
               (setq pos (point))
               (if (and (not (looking-at "("))
                        (looking-back ")\\(\\s-\\|\n\\)*" (- (point) 16)))
                   (sp-backward-sexp)
                 (sp-backward-up-sexp))
               until (or
                      (looking-at-p "(\\(defun\\|defvar\\)\\(\\s-\\|$\\)")
                      (= pos (point))))))))
       ((symbol-function #'end-of-defun)
        (lambda (&optional arg)
          (let (pos)
            (beginning-of-defun)
            (sp-forward-sexp)))))
    (apply orig-func args)))
(advice-add #'eval-defun :around #'eval-defun:inner-def)