* zop-to-char.el (zop-up-to-char): New.