Respuestas:
Vincularse message-log-max
a nil
:
(defun foo ()
(interactive)
(let ((message-log-max nil))
(message "EEEEEEEEEEEEEEEEEE")))
M-x foo RET
[PD: No te dejes engañar por las pruebas que usan cosas como M-: (let ((message-log-max nil)) (message "EEEEEEEEEEEEEEEEEE"))
pensar que la EEEEEEEEEEEEEEEEEE
evaluación del let
sexp es el mensaje emitido por message
. En cambio, es el valor devuelto por esa evaluación. message
no registra nada en *Messages*
if message-log-max
is nil
.]
No pude encontrar una forma integrada de hacerlo, así que pirateé esta extraña función:
(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))))
Consulte la documentación para message-log-max
.