Enviar salida de proceso a * Mensajes * búfer, pero omitir el área de eco

¿Es posible enviar la salida de un filtro de proceso al *Messages*búfer y suprimir que la salida del mensaje aparezca en el área de eco, de modo que pueda usar simultáneamente comandos interactivos sin que la minibuffer-promptsalida del filtro de subpresión en curso lo borre?

(defun rsync-process-filter (proc string)
  (when (not (or
      (string-match "files...\r" string)
      (string-match "files to consider\n" string)))
    (message "%s" string)))

EDITAR (3 de enero de 2015): el siguiente es un enlace a una pregunta similar, sin embargo, aún no he podido hacer que funcione con una cadena de proceso donde la cadena exacta es desconocida; el título del hilo es: Emacs - Deshabilitar algunos mensajes de minibúfer :

/superuser/669701/emacs-disable-some-minibuffer-messages

Puede suprimir la visualización en el minibúfer configurando minibuffer-message-timeouta 0.

Por ejemplo, uso algo como esto en algunos lugares donde quiero alternar un modo menor mientras estoy en un indicador de minibúfer (como ido find-file) sin ser interrumpido por un mensaje de 'modo habilitado':

(let ((minibuffer-message-timeout 0))
    (toggle-some-mode))

Primer borrador preliminar (3 de enero de 2015): borrador inicial revisado basado en el útil comentario de @phils sobre el uso de la función messages-bufferpara localizar o crear el búfer apropiado (y ponerlo en messages-buffer-mode); y, agregó una verificación de si point-maxestá al comienzo de la línea (si no, inserte una nueva línea antes de insertar la cadena del mensaje).

EDITAR (4 de enero de 2015): hay situaciones en las que la cadena insertada no necesariamente termina en una nueva línea, y la función messageno tiene una comprobación para asegurarse de que está al comienzo de una nueva línea, por lo que nos ocupamos de eso en esta función Por lo tanto, en cualquier punto cuando messageinserte una nueva línea, dicha línea comenzará a la izquierda del búfer.

(defun rsync-process-filter (proc string)
  (let ((inhibit-read-only t))
    (when (not (or
        (string-match "files...\r" string)
        (string-match "files to consider\n" string)))
      (with-current-buffer (messages-buffer)
        (goto-char (point-max))
        (when (not (bolp))
          (insert "\n"))
        (insert string)
        (when (not (bolp))
          (insert "\n"))))))

Ir a través de la cadena de documentos messageparece que debería ser posible lograr lo que desea llamando al mensaje con un nilargumento inmediatamente después de llamar messagecon el contenido deseado. De la cadena de documentos demessage

Si el primer argumento es nulo o la cadena vacía, la función borra cualquier mensaje existente; esto permite que se muestre el contenido del minibúfer.

Entonces, modificar su función a algo como lo siguiente debería funcionar

(defun rsync-process-filter (proc string)
  (when (not (or
      (string-match "files...\r" string)
      (string-match "files to consider\n" string)))
    (message "%s" string)
    (message nil)))

Lo probé haciendo lo siguiente

(defun test ()
  (message "%s" "Test")
  (message nil))

(run-at-time 5 5 #'test)

Y parece funcionar