From e8267b4b165f6a6a086f4a9786e9df8ffe31d55c Mon Sep 17 00:00:00 2001 From: Yuchen Pei Date: Sat, 24 Jun 2023 13:41:13 +1000 Subject: Enhancements for org and elisp - org: adding an :after advice to org-insert-structure-template so that it goes into editing immediately - elisp: C-M-x evals a region when region is active --- emacs/.emacs.d/lisp/my/my-prog.el | 8 ++++++++ 1 file changed, 8 insertions(+) (limited to 'emacs/.emacs.d/lisp/my/my-prog.el') diff --git a/emacs/.emacs.d/lisp/my/my-prog.el b/emacs/.emacs.d/lisp/my/my-prog.el index 309df2e..e38a866 100644 --- a/emacs/.emacs.d/lisp/my/my-prog.el +++ b/emacs/.emacs.d/lisp/my/my-prog.el @@ -434,5 +434,13 @@ left and the source buffer on the right. (unless (derived-mode-p 'haskell-mode 'c-mode 'c++-mode) (eglot-format-buffer)))) +;;; lisp +(defun my-eval-defun-or-region (&optional arg) + "Call `eval-region' if region is active, otherwise call `eval-defun'" + (interactive "P") + (if (region-active-p) + (eval-region (region-beginning) (region-end) t) + (eval-defun arg))) + (provide 'my-prog) ;;; my-prog.el ends here -- cgit v1.2.3