Reading key sequences followed by read-event.

[Jay Belanger <belanger@truman.edu>]

I would expect the following function to prompt for a key sequence, 
read it, then display a message "You just pressed ..." while waiting 
for another event.  
That's what it does if the key sequence is one character, but if it is
more than one character, then after the key sequence (say "ab") is read, 
the minibuffer appears again with the "Key sequence: a b-" prompt while 
waiting for another event.  
Is this expected behavior, and if so, how can I keep the echo area displayed?

(defun hmm (key)
  (interactive "kKey sequence: ")
  (message "You just pressed the key sequence %s" (key-description key))
  (read-event))

Thanks,
Jay