From 4926c3d2c0717839e00b89109209d3b864ab2200 Mon Sep 17 00:00:00 2001 From: David Morgan Date: Thu, 1 Jun 2023 16:20:34 +0100 Subject: [PATCH] Make eval-region-or-defun work with elpaca --- .emacs.d/lisp/init-emacs-lisp.el | 7 +++++-- 1 file changed, 5 insertions(+), 2 deletions(-) diff --git a/.emacs.d/lisp/init-emacs-lisp.el b/.emacs.d/lisp/init-emacs-lisp.el index a22afd0..4a1a1fb 100644 --- a/.emacs.d/lisp/init-emacs-lisp.el +++ b/.emacs.d/lisp/init-emacs-lisp.el @@ -15,8 +15,11 @@ "Call eval-region, if one is selected, or eval-defun otherwise." (interactive "P") (if (use-region-p) - (eval-region (region-beginning) (region-end)) - (eval-defun edebug-it))) + ;; Set `this-command', otherwise elpaca does not work correctly + (let ((this-command 'eval-region)) + (eval-region (region-beginning) (region-end))) + (let ((this-command 'eval-defun)) + (eval-defun edebug-it)))) ;; Based on prelude-emacs-lisp.el (defun recompile-init-lisp () "Recompile elisp files in `user-emacs-directory/lisp'."