Envoyer la sortie du processus au tampon * Messages *, mais contourner la zone d'écho

Est-il possible d'envoyer la sortie d'un filtre de processus au *Messages*tampon et de supprimer cette sortie de message d'apparaître dans la zone d'écho, de sorte que je puisse utiliser simultanément des commandes interactives sans minibuffer-promptêtre effacé par la sortie du filtre de sous-presse en cours?

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

EDIT (3 janvier 2015): Ce qui suit est un lien vers une question similaire, cependant, je n'ai pas encore pu le faire fonctionner avec une chaîne de processus où la chaîne exacte est inconnue - le titre du fil est: Emacs - Désactiver certains messages du mini-tampon :

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

Vous pouvez supprimer l'affichage dans le mini-tampon en réglant minibuffer-message-timeoutsur 0.

Par exemple, j'utilise quelque chose comme ça à quelques endroits où je veux basculer un mode mineur dans une invite de mini-tampon (comme ido find-file) sans être interrompu par un message `` mode activé '':

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

Première ébauche (3 janvier 2015): ébauche initiale révisée basée sur le commentaire utile de @phils concernant l'utilisation de la fonction messages-bufferpour localiser ou créer la mémoire tampon appropriée (et la placer dans messages-buffer-mode); et, ajouté une vérification pour savoir si point-maxest au début de la ligne (sinon, insérez une nouvelle ligne avant d'insérer la chaîne de message).

EDIT (4 janvier 2015): Il y a des situations où la chaîne insérée ne se termine pas nécessairement par une nouvelle ligne, et la fonction messagen'a pas de vérification pour s'assurer qu'elle se trouve au début d'une nouvelle ligne, donc nous prenons soin de cela dans cette fonction. Ainsi, à tout moment où messageinsère une nouvelle ligne, cette ligne commencera à gauche de la mémoire tampon.

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

En parcourant la docstring, messageil semble qu'il devrait être possible d'atteindre ce que vous voulez en appelant un message avec un nilargument immédiatement après avoir appelé messageavec le contenu souhaité. De la docstring demessage

Si le premier argument est nul ou la chaîne vide, la fonction efface tout message existant; cela permet d'afficher le contenu du mini-tampon.

Donc, modifier votre fonction en quelque chose comme ce qui suit devrait fonctionner

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

Je l'ai testé en procédant comme suit

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

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

Et ça semble marcher