# 
# patch "contrib/monotone.el"
#  from [50cccc0dead2010e1c2fad77364126b876c72f08]
#    to [35af2d2c4d857771bece3cf8b13daf454f7bcc3f]
# 
--- contrib/monotone.el
+++ contrib/monotone.el
@@ -248,6 +248,11 @@
 
 ;;(define-derived-mode monotone-shell-mode comint-mode "Monotone")
 
+(defun monotone-process-sentinel (process event)
+  "This sentinel suppresses the text from PROCESS on EVENT."
+  (message "monotone: %s %s" process event)
+  nil)
+
 ;; Run a monotone command
 (defun monotone-cmd (args)
   "Execute the monotone command with ARGS in the monotone top directory."
@@ -287,6 +292,8 @@
     (setq monotone-cmd-last-args args)
     ;; run
     (let ((p (apply #'start-process monotone-buffer mt-buf mt-pgm args)))
+      ;;
+      (set-process-sentinel p #'monotone-process-sentinel)
       (while (eq (process-status p) 'run)
         ;; FIXME: rather than printing messages, abort after too long a wait.
         (when (not (accept-process-output p monotone-wait-time))