Emacs Lisp 宏步进器

Question

是否有 SLIME 宏步进器的 Elisp 类似物？具体来说，我正在寻找将代码扩展到新缓冲区中的下一个扩展步骤(或只是最终扩展)的东西。

天真

(defun macroexpand-point ()
  (interactive)
  (let ((b (get-buffer-create "*el-macroexpansion*"))
        (expansion (format "%s" (macroexpand (thing-at-point 'sexp)))))
    (with-current-buffer b
      (insert expansion)
      (display-buffer b))))

没有达到我的预期。

Answer 1

也许你需要这个:

(defun macroexpand-sexp-at-point ()
  (macroexpand (sexp-at-point)))

这样可以更简洁地表达整个函数

(defun macroexpand-point (sexp)
  (interactive (list (sexp-at-point)))
  (with-output-to-temp-buffer "*el-macroexpansion*"
    (pp (macroexpand sexp)))
  (with-current-buffer "*el-macroexpansion*" (emacs-lisp-mode)))