Wyślij dane wyjściowe procesu do bufora * Messages *, ale pomiń obszar echa

Czy jest możliwe przesłanie danych wyjściowych z filtra procesu do *Messages*bufora i powstrzymanie pojawiania się tego komunikatu w obszarze echa, tak że jestem w stanie jednocześnie używać interaktywnych poleceń bez konieczności minibuffer-promptusuwania ich przez trwające wyjście filtra podciśnienia?

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

EDYCJA (3 stycznia 2015 r.): Poniżej znajduje się link do podobnego pytania, jednak nie byłem jeszcze w stanie sprawić, aby działał z łańcuchem procesu, w którym dokładny ciąg jest nieznany - tytuł wątku to: Emacs - Wyłącz niektóre komunikaty minibufora :

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

Możesz ukryć wyświetlanie w minibuforze, ustawiając minibuffer-message-timeoutna 0.

Na przykład używam czegoś takiego w kilku miejscach, w których chcę przełączyć tryb pomocniczy w monicie bufora (np. Plik ido find-file) bez przerywania komunikatem „włączony tryb”:

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

Pierwszy trudny szkic (3 stycznia 2015 r.): Zmieniony wstępny szkic w oparciu o pomocny komentarz @phils dotyczący użycia funkcji messages-bufferdo zlokalizowania lub utworzenia odpowiedniego bufora (i włożenia go messages-buffer-mode); i dodano sprawdzenie, czy point-maxjest na początku wiersza (jeśli nie, wstaw nowy wiersz przed wstawieniem ciągu wiadomości).

EDYCJA (4 stycznia 2015 r.): Są sytuacje, w których wstawiony ciąg niekoniecznie musi kończyć się nowym wierszem, a funkcja messagenie sprawdza, czy znajduje się na początku nowego wiersza, więc zajmujemy się tym w tej funkcji. Zatem w dowolnym momencie messagewstawiania nowej linii wspomniana linia zacznie się w lewo od bufora.

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

Przechodząc przez dokumentację messagewydaje się, że powinno być możliwe osiągnięcie tego, co chcesz, poprzez wywołanie wiadomości z nilargumentem natychmiast po wywołaniu messagez pożądaną treścią. Z dokumentacjimessage

Jeśli pierwszym argumentem jest zero lub pusty ciąg, funkcja usuwa wszelki istniejący komunikat; pozwala to na wyświetlenie zawartości minibufora.

Tak więc modyfikacja funkcji do czegoś takiego jak poniżej powinna działać

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

Przetestowałem to, wykonując następujące czynności

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

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

I wydaje się, że działa