Question

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

感谢您的帮助。

Answer 1

不，抱歉。没有简单的方法可以将emacs宏转换为elisp。

更新： Emacs上有一些工作要开始这条路。请参阅this thread作为起点。它仍然不可能（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 <tab> RET

Command: last-kbd-macro
Key: none

Macro:

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

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

Answer 2

我在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))

Answer 3

我不知道这些命令是否比上述评论更新，但您可以这样做：

为键盘宏指定名称＆＃39; kmacro-name-last-macro＆＃39;，然后运行＆＃39; insert-kbd-macro＆＃39;要求该名称并在标记处插入函数定义。

请参阅：17.5 Naming and Saving Keyboard Macros

将Emacs宏转换为Elisp

3 个答案: