read-char doesn't use input-decode-map

[Rob Giardina <rgiar@yahoo.com>]

Hi,

I've noticed that read-char doesn't use input-decode-map. I'm
doing some fun things with input-decode-map (code attached) to
convert all the right-side keys to the left using a super prefix
on OSX (allows one hand kdb, one hand mouse). It works nicely in
most cases except for the read-char family of functions. Is this
a bug or the expected behavior?

Thanks,
Rob

;;crazy experiment to mirror right characters onto left hand
(let ((from   "`12345qwertasdfgzxcvb~!@#$%QWERTASDFGZXCVB")
      (to     "-09876poiuy:lkjh/.,mn_)(*&^POIUY;LKJH/<>MN")
      (from-v (vconcat ["right" "left"] (mapcar 'char-to-string from)))
      (to-v   (vconcat [" "     " "]    (mapcar 'char-to-string to))))
  (map 'list
       #'(lambda(k to)
           (let* ((base-k (list 'super (intern k)))
                  (base-to (list (intern to))))
             (mapc
              #'(lambda(pre)
                  (define-key input-decode-map
                    (vector (append pre base-k))
                    (vector (append pre base-to))))
              '(() (control) (meta) (control meta)))))
       from-v
       to-v)