Emacs 25およびおそらくいくつかの以前のバージョンでは、これを行う最もクリーンな方法は次のとおりです。
最初に定義します：
(defun suppress-messages (old-fun &rest args)
(cl-flet ((silence (&rest args1) (ignore)))
(advice-add 'message :around #'silence)
(unwind-protect
(apply old-fun args)
(advice-remove 'message #'silence))))
次に、作成したすべてのメッセージを抑制したい場合some-function：
(advice-add 'some-function :around #'suppress-messages)
たとえば、次のように記述することにより、関数ispell-kill-ispell（in ispell.el.gz）によって生成される「Ispell process killed」というメッセージを抑制します。
(advice-add 'ispell-kill-ispell :around #'suppress-messages)
メッセージを再度有効にする必要がある場合は、次を実行します。
(advice-remove 'some-function #'suppress-messages)
注意すべき点がいくつかあります。
1）によって生成さsome-functionれるすべてのメッセージは、関数が呼び出すlisp関数によって生成されるすべてのメッセージと同様に抑制されます。
2）Cコードによって生成されたメッセージは抑制されませんが、おそらくそれはすべて最高です。
3）ファイルの-*- lexical-binding: t -*-最初の行に含まれていることを確認する必要があり.elます。
しかし、どの関数が呼び出されたかをどのように見つけるのですか messageかですか？他の誰かが提案したようにコードをgrepすることもできますが、Emacsに代わって作業をさせる方が簡単です。
定義する場合：
(defun who-called-me? (old-fun format &rest args)
(let ((trace nil) (n 1) (frame nil))
(while (setf frame (backtrace-frame n))
(setf n (1+ n)
trace (cons (cadr frame) trace)) )
(apply old-fun (concat "<<%S>>\n" format) (cons trace args))))
してから：
(advice-add 'message :around #'who-called-me?)
メッセージにバックトレースが追加されます。これから、メッセージが生成された場所を簡単に確認できます。
これを逆にすることができます：
(advice-remove 'message #'who-called-me?)
別の方法としては、message機能をアドバイスし、メッセージを印刷するかどうかを確認するテストを行います。問題のメッセージが固定文字列の場合、これは簡単です。たとえば、「Ispell process killed」を抑制するには、次のように定義できます。
(defun suppress-ispell-message (old-fun format &rest args)
(if (string= format "Ispell process killed")
(ignore)
(apply old-fun format args)))
してから：
(advice-add 'message :around #'suppress-ispell-message)
メッセージが複雑な場合、このアプローチはすぐに非常に面倒になります。