make EvalSexp work in non-lisp buffer

Sometimes I want to just evaluate the sexp from an Org Mode buffer (or any buffer really)
ag91 · Oct 27, 2024 · 239ae4c · 239ae4c
1 parent 654ccc5
commit 239ae4c
Showing 1 changed file with 1 addition and 2 deletions.
diff --git a/molds/core.el b/molds/core.el
@@ -363,8 +363,7 @@ This is a more focused view than `CodeToTree.'")
 
 (me-register-mold
     :key "EvalSexp"
-    :given (:fn (or (eq major-mode 'emacs-lisp-mode)
-                    (eq major-mode 'lisp-interaction-mode)))
+    :given (:fn (thing-at-point 'sexp))
     :then (:fn
            (let* ((orig-point (point))
                   (tree (progn (unless (or (me-get-region) (list-at-point))