Come visualizzare un messaggio solo nell'area eco

È possibile visualizzare un messaggio nell'area dell'eco senza registrarlo nel buffer *Messages*?

Associare message-log-maxa nil:

(defun foo ()
  (interactive)
  (let ((message-log-max nil))
    (message "EEEEEEEEEEEEEEEEEE")))

M-x foo RET

[PS Non lasciarti ingannare dai test usando cose come M-: (let ((message-log-max nil)) (message "EEEEEEEEEEEEEEEEEE"))pensare che la EEEEEEEEEEEEEEEEEE valutazione del let sexp sia il messaggio che è stato prodotto da message. È invece il valore restituito da tale valutazione. messagenon registra nulla in *Messages*if message-log-maxis nil.]

Non sono riuscito a trovare un modo integrato per farlo, quindi ho violato questa strana funzione:

(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))))

Consulta la documentazione per message-log-max.