error handlers and dispatch-event

[Jan Rychter]

I'm looking for some advice on how to handle the following problem. If I
try to evaluate the following code in a read-only buffer, my handler
never gets called:

(condition-case nil
    (progn
      (setq unread-command-events 
	    (append unread-command-events
		    (list (character-to-event ?a))))
      (loop while unread-command-events
	do (dispatch-event (next-event))))
  ('buffer-read-only
   (progn (message "Ouch!"))))

This is probably because a more specific handler is being established
somewhere in the event dispatch and processing code. But I can't seem to
find that handler, and even if I find it, I'm not sure what I can do
about it.

Is there a way for me to handle buffer-read-only errors in the case
above?

--J.