*** /tmp/ediff2346l1x	2011-02-20 12:32:15.324458002 +0100
--- /home/albinus/src/emacs/lisp/subr.el	2011-02-20 12:16:16.294458002 +0100
***************
*** 3588,3600 ****
  		 (message "%s" text)))))
  	  ;; Pulsing indicator
  	  (enough-time-passed
! 	   (let ((index (mod (1+ (car reporter)) 4))
  		 (message-log-max nil))
  	     (setcar reporter index)
! 	     (message "%s %s"
! 		      text
! 		      (aref progress-reporter--pulse-characters
! 			    index)))))))
  
  (defun progress-reporter-done (reporter)
    "Print reporter's message followed by word \"done\" in echo area."
--- 3588,3608 ----
  		 (message "%s" text)))))
  	  ;; Pulsing indicator
  	  (enough-time-passed
! 	   (let ((index (mod (1+ (car reporter))
! 			     (length progress-reporter--pulse-characters)))
  		 (message-log-max nil))
  	     (setcar reporter index)
! 	     (if (stringp text)
! 		 ;; Write into the minibuffer
! 		 (message "%s %s"
! 			  text
! 			  (aref progress-reporter--pulse-characters index))
! 	       ;; Update modeline
! 	       (eval
! 		`(let (((make-local-variable ,text)
! 			(aref progress-reporter--pulse-characters index)))
! 		   (force-mode-line-update)
! 		   (sit-for 0)))))))))
  
  (defun progress-reporter-done (reporter)
    "Print reporter's message followed by word \"done\" in echo area."