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에서 생성 된 "Ispell process killed"메시지 ispell.el.gz를 다음과 같이 작성하여 표시하지 않습니다.
(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있습니까? 다른 사람이 제안한대로 코드를 살펴볼 수는 있지만 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)
메시지가 복잡한 경우이 방법은 곧 매우 복잡해집니다.