改进newlisp数字部分高亮