5

我注意到我的代码中有一种(with-current-buffer ....一遍又一遍地重复相同内容的趋势，所以我决定根据该宏定义定义一个宏with-current-buffer——这就是我目前所拥有的：

(defmacro with-assembla-buffer(asm-buffer-name heading-str &rest body)
  "Create buffer with name of ASM-BUFFER-NAME, or uses it if exists,                                                                                                      
   preps it with readonly/erase/heading - executes `body' - then puts                                                                                                     
   readonly back on, goes to beginning of buffer, and switches to it."
  (with-current-buffer (get-buffer-create asm-buffer-name)
    (assembla-mode)
    (toggle-read-only -1)
    (erase-buffer)
    (insert (format "-- %s --------------------" heading-str))
    (newline)
    `(progn ,@body)
    (toggle-read-only 1)
    (goto-char (point-min))
    (switch-to-buffer (current-buffer))))

this 的主体永远不会被执行，但是当它切换到defun而不是defmacrois 时，它确实可以完美地工作。因此，除了为什么 body 从未执行之外，我的另一个问题是 -这作为宏比 defun 更有意义吗？

4

1 回答 1

4

请记住，宏会生成代码。你的宏看起来不像。查看示例调用的宏扩展。调试宏的第一步是检查某些代码的宏扩展。

……

(with-current-buffer (get-buffer-create asm-buffer-name)

上图：为什么这是宏中的代码而不是源代码？此代码将在宏展开时执行，不会出现在生成的代码中。你可能想反引号它。

  (assembla-mode)
  (toggle-read-only -1)
  (erase-buffer)
  (insert (format "-- %s --------------------" heading-str))
  (newline)

   `(progn ,@body)

上图：这不会做你想要的。您需要反引号您要生成的所有代码 - 不仅仅是这个表格。

于 2012-11-18T21:57:11.770 回答