I'm seeing a redisplay bug with your patch.

C-x 2, and then grab the modeline with the cursor and drag it up and down.

             Juanma