.#,*�! 1 % chars $ mark+��! 3 % chars� * skip_chars�! 4 0 create_user_mark $ mark@.��! 6 $ mark� . goto_user_mark�! 7! 1w/c�! 9! 0w�! 1�2 skip_chars_to_mark,*�" 12 $ mark+�" 14 / skip_word_chars�" 15 0 create_user_mark $ mark?.��" 16 $ mark� . goto_us
er_mark/c�" 12�7 skip_word_chars_to_mark,��" 21! 0� , check_region*�" 22 # end+ 0 create_user_mark�# end�" 23 * pop_mark_1.�" 24 0 create_user_mark # end=/.�" 26 ) push_mark*�" 27 & at_end+�$$ ^\\u # end� 2 skip_chars_to_mark�& at_end���" 28 0 bufsubstr
_delete� % strup� & insert�" 29 & at_end.v/c�" 30 ) push_mark��" 31$$ ^\\l # end� 2 skip_chars_to_mark�& at_end���" 32 0 bufsubstr_delete� & strlow� & insert�" 33 & at_end.v/c/f�" 19�+ chgcase_reg,��" 39! 0� , check_region*�" 40 # end+ 0 create_user_ma
rk�# end�" 41 * pop_mark_1.�" 42 0 create_user_mark # end=/.�" 44 3 skip_non_word_chars�" 45 0 create_user_mark # end@.v/c*�" 47 # wch+ ) what_char�# wch����" 52 # wch� $ char� % strup� & insert�" 53 # del�" 54 ) push_mark��" 55 # end� 7 skip_word_chars_t
o_mark���" 56 0 bufsubstr_delete� & strlow� & insert/f�" 37�* cap_region,*�" 60 # how+��" 62! 0� , check_region*�" 63 ! f+�" 65 # how.�" 67# 117x3�" 68}% strup�! f/.�" 71# 100x3�" 72}& strlow�! f/.�" 75" 99x3�" 76 * cap_regionw/.�" 80 + chgcase_regw
/j�" 82 ' dupmarkP*�" 83 # reg+ ! f� ) bufsubstrϰ# reg�" 84 * del_region��" 85 # reg� & insert�" 60�, xform_region