将Emacs宏转换为Elisp

有没有办法将emacs宏转换为elisp,而不是像M-x insert-kbd-macro实际活动成为elisp语句那样.

谢谢你的帮助.

不,谢谢.没有简单的方法可以将emacs宏转换为elisp.

更新: Emacs上有一些工作要开始这条道路.请参阅此主题作为起点.它仍然不可能(2010年6月),但有活动.

我能想到的第一个原因是处理交互式命令并将键击转换为函数的正确参数.

想一想以下顺序:

C-x b .em TAB RET

这开始命令切换到缓冲区,键入三个字符,使用TAB完成完成它和RET接受.最终结果的等效lisp(在TAB完成唯一的emacs会话中)是:

(switch-to-buffer ".emacs")

完成后的思考,也有与所有类型的扩展相互作用(dabbrev,hippie-expand,等).

一个起点可以是M-x edit-last-kbd-macro(在我的情况下)显示:

;; Keyboard Macro Editor.  Press C-c C-c to finish; press C-x k RET to cancel.
;; Original keys: C-x b .em  RET

Command: last-kbd-macro
Key: none

Macro:

C-x b       ;; switch-to-buffer
.em         ;; self-insert-command * 3
       ;; pabbrev-expand-maybe
RET         ;; newline-and-indent

至少给你一些功能名称.但是你会看到它RET被标记为'newline-and-indent不正确,因为在宏执行时,迷你缓冲区是活动的,实际上是绑定'minibuffer-complete-and-exit.同样,正确的绑定TAB是'minibuffer-complete.

我在https://github.com/Silex/elmacro上创建了一个允许这个版本的软件包

它有一些怪癖,但它工作得很好......例如,以下宏:

F3 C-e M-b M-u C-a C-n F4

生成以下elisp:

(defun upcase-last-word ()
  "Change me!"
  (interactive)
  (move-end-of-line 1)
  (backward-word 1)
  (upcase-word 1)
  (move-beginning-of-line 1)
  (next-line 1 1))