From 702949f267b826ef610c229993cdbc2ea74ee05c Mon Sep 17 00:00:00 2001 From: Thomas von Dein Date: Tue, 30 May 2023 09:28:01 +0200 Subject: [PATCH] fix C-x C-e to properly support regions --- lisp/init-elisp.el | 8 +++++++- 1 file changed, 7 insertions(+), 1 deletion(-) diff --git a/lisp/init-elisp.el b/lisp/init-elisp.el index 8a09492..ed5b7fd 100644 --- a/lisp/init-elisp.el +++ b/lisp/init-elisp.el @@ -47,7 +47,13 @@ (interactive) (progn (if mark-active - (eval-region) + (progn + (let ((beg (mark)) + (end (point))) + (when (> beg end) ;; point and mark are reversed + (setq beg (point) + end (mark))) + (eval-region beg end))) (eval-buffer)))) (defun ff ()