catching keyboard-quit from read-char

[Eric Abrahamsen]

I thought this used to work, but maybe I'm imagining things...

I've got a macro for prompting the user for a value, but catching a
couple of signals and returning nil in those cases. It looks like:

(defmacro ebdb-with-exit (&rest body)
  "Execute BODY, returning nil on quit or an empty value."
  `(condition-case-unless-debug nil
       ,@body
     ((quit ebdb-empty)
      nil)))

It works for `read-string', but not `read-char':

(ebdb-with-exit (read-string "String: ")) ; C-g returns nil
(ebdb-with-exit (read-char "Character: ")) ; C-g raises an error

I thought this used to work, but maybe I'm mis-remembering. Is there
anything I can do to get this to behave the way I want it to? (Ie,
returning nil).

Thanks,
Eric