*** The function current-message returns the message currently displayed<BR>
in the echo area, or nil if there is none.
<P>