刚才在做测试的时候想到这个帖子,现在可以用 separedit
来实现:
(defun separedit/eval-last-sexp-in-comment ()
(interactive)
(let ((separedit-default-mode 'emacs-lisp-mode))
(with-current-buffer (separedit)
(prog1 (call-interactively #'eval-last-sexp)
(execute-kbd-macro (kbd "C-c C-k"))))))