.#,*ü! 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