글쎄요, 이건 glyph를 보여주는 게 아니고 character를 보여주는 거 같은데요.

그래서 글리프 보여주는 놈으로 만들어봤습니다. 사실 말씀하신 그 "오래 전"에 작성했던 건데 지금 해보니 잘 안 되기도 해서 지금 조금 고쳐서 github gist에 올려두었어요.

https://goo.gl/SFNGc8

나머지는 다 쓸데없는 것들이고요. 핵심은 제39행에서 \char 대신 \XeTeXglyph 프리미티블 이용하는 겁니다.