Question

我使用with-output-to-temp-buffer函数，将标准输出重定向到它，将其保存到文件，切换回上一个缓冲区，然后终止临时缓冲区。

(require 'find-lisp)
(with-output-to-temp-buffer "*my output*" 
  (mapc 'print (find-lisp-find-files "~/project/clisp" "\\.lisp$"))
  (setq prev-buffer (buffer-name))
  (switch-to-buffer "*my output*")
  (write-region nil nil "test")
  (switch-to-buffer prev-buffer)
  (kill-buffer "*my output*")
  )

但下面会出现错误。我不知道为什么。

Debugger entered--Lisp error: (error "Selecting deleted buffer")

PS：在elsip中有更优雅的方法来实现这一点（将标准输出重定向到文件）。感谢

Answer 1

发生此错误是因为with-output-to-temp-buffer在评估其正文后尝试显示缓冲区，但此时您已经删除了缓冲区。我认为with-temp-file是您正在寻找的宏。它的文档说：

(with-temp-file FILE &rest BODY)

创建一个新缓冲区，在那里评估BODY，并将缓冲区写入FILE。

然后，您可以将standard-output绑定到新缓冲区，例如：

(with-temp-file "test.txt"
  (let ((standard-output (current-buffer)))
    (mapc 'print (find-lisp-find-files "~/project/clisp" "\\.lisp$"))))

如何使用EMACS将标准输出重定向到Elisp中的文件

1 个答案: