标签: lisp

我在 Emacs 中做了很多自动化，通过堆叠我从手动使用中知道的命令。这是我推荐的一种方法，因为它不需要太多努力：您像往常一样使用 Emacs，但时不时会出现在您的脑海中，“嘿，我总是连续使用这些命令，为什么不呢？我只是合并它们？” 由于您知道命令（按名称或快捷方式），因此更加简单。

但是，一个问题是，当您堆叠命令时，您会在“回显区域”（与迷你缓冲区相同的位置）中看到大量消息闪烁。这些消息没有任何意义，因为下面发生的一切（调用的函数）对用户来说（应该）是透明的。

那么，您可以先将其静音，然后再取消静音吗？看看下面：

(defun invisible-pretty-mail ()
  "Automatize `pretty-mail'."
  (interactive)
  ; (mute-echo-area)
  (rmail-edit-current-message)
  (pretty-mail) ; lots of replace-string, replace-regexp, etc. here
                ; that will flood messages
  (rmail-cease-edit)
  ; (unmute-echo-area)
  )

针对 sds 的回答进行编辑：

(defun test-suppress-msgs ()
  (interactive)
  (let ((log-size message-log-max))
    (setq message-log-max nil)
    (message "This message is suppressed.") …