Antworten:
Binden message-log-maxan nil:
(defun foo ()
(interactive)
(let ((message-log-max nil))
(message "EEEEEEEEEEEEEEEEEE")))
M-x foo RET
[PS Lassen Sie sich nicht durch Tests irreführen, bei denen beispielsweise angenommen M-: (let ((message-log-max nil)) (message "EEEEEEEEEEEEEEEEEE"))wird, dass die EEEEEEEEEEEEEEEEEE Bewertung des let Sexp die Nachricht ist, die von ausgegeben wurde message. Es ist stattdessen der Wert, der von dieser Bewertung zurückgegeben wird. messageprotokolliert nichts, *Messages*wenn message-log-maxist nil.]
Ich konnte keinen eingebauten Weg finden, um dies zu tun, also habe ich diese seltsame Funktion gehackt:
(defun echo-and-ignore-message-buffer (message)
(let ((prev-msg-log-max message-log-max))
(unwind-protect
(progn (setq message-log-max nil)
(message message))
(setq message-log-max prev-msg-log-max))))
Lesen Sie die Dokumentation für message-log-max.