.#,*ü! 5 ! n # buf & trybuf+ + Null_String°& trybuf*ü! 6 " ch+ü! 8 + buffer_list°! nü! 9 ! n.ü" 11°# bufü" 12¹! nýü" 13! 0 # buf!°" chü" 14 " ch" 32A " ch" 42ADýü" 15 ' whatbuf # bufþ & strcmpND.u/cü" 17 # buf°& trybufv/iü" 20 ! n.P/iýü" 221 Switch
 to buffer:ü" 23 & trybuf + Null_String" 98þü" 22 4 read_with_completion°& trybufýü" 25 & trybufþ & strlen.ý & trybufþ ' pop2buf/cü! 3y8 find_buffer_other_window,*ü" 30 $ file+ýü" 32* Find file:þ 3 read_file_from_mini°$ fileýýü" 33 $ fileþ 0 extract_fi
lenameþ & strlen.w/býü" 35 $ fileþ ) read_file.ý) New file.þ ' message/býü" 36 ' whatbufþ ' pop2bufü" 28y6 find_file_other_window,*ü" 41 $ file+ýü" 434 Find alternate file:þ 3 read_file_from_mini°$ fileýýü" 44 $ fileþ 0 extract_filenameþ & strlen.w/býü
" 46 ' whatbufþ & delbufýü" 47 $ fileþ ) find_file.ý) New file.þ ' message/bü" 39y3 find_alternate_file,*ü" 52 % white+$&  	\r\n°% whiteýü" 53 % whiteþ + bskip_charsü" 54 ( eol_trim ) go_down_1 ( eol_trim # bolü" 55 $ eolp.ü" 57 ) go_down_1ü" 58 ) push_
markýü" 59 % whiteþ * skip_charsü" 60 # bolü" 61 * del_region/cü" 50y2 delete_blank_lines,ýü" 67$$  	\nþ * skip_charsýü" 68" 40þ / looking_at_charýü" 69# 123þ / looking_at_charDýü" 70" 91þ / looking_at_charD.ýü" 72 ) what_charþ 7 find_matching_delimit
er! 1A.ü" 73 * go_right_1/cw/cýü" 76$+ ^ 	\n()[]{}þ * skip_charsü" 65y, forward_sexp,ýü" 81$$  	\nþ + bskip_charsü" 82 ) go_left_1ýü" 83" 41þ / looking_at_charýü" 84# 125þ / looking_at_charDýü" 85" 93þ / looking_at_charD.ýü" 87! 0þ 7 find_matching_d
elimiterPw/cýü" 91$+ ^ 	\n()[]{}þ + bskip_charsü" 79y- backward_sexp,*ü" 96 " kr+. yp_kill_region°" krü" 97 ) push_markü" 98 , forward_sexpýü" 99 $ eolpþ ( go_rightýü# 100 " krþ * is_defined.ý " krþ $ eval/.ýü# 101+ kill_regionþ $ call/dü" 94y) kill_se
xp,*ü# 106 ! m+ü# 107 + window_line°! mü# 108 & down_1.ý ! mþ ( recenter/cü# 109 # bolü# 104y2 scroll_up_in_place,*ü# 114 ! m+ü# 115 + window_line°! mü# 116 $ up_1.ý ! mþ ( recenter/cü# 117 # bolü# 112y4 scroll_down_in_place,*ü# 122 # str+ý< String to
 replace rectangle:    þ ) read_mini°# strü# 123 # str  A.w/cýü# 126! 1þ , check_regionü# 127 7 exchange_point_and_mark*ü# 128 # col+ + what_column°# col*ü# 129 $ line+ ) what_line°$ lineü# 130 7 exchange_point_and_mark*ü# 131 & nlines+ ) what_line $ 
line:! 19°& nlinesü# 132 + what_column # colA.ýü# 133! 0þ ( pop_mark/.ü# 135 ) kill_rect/dýü# 137 $ lineþ ) goto_lineü# 138 & nlines.ýü# 140 # colþ + goto_columnýü# 141 # strþ & insertýü# 142! 1þ ' go_down/iü# 144 ( pop_spotü# 120y0 string_rectangle,
*ü# 149 # pat+ý. list directoryþ 3 read_file_from_mini°# patýü# 150 # patþ & strlen.w/b*ü# 152 # dir+ý # patþ , path_dirname°# dirýü# 153 # patþ - path_basename°# patýü# 154 # patþ & strlen.ü# 155! *°# pat/býü# 157 # dirþ + file_status! 2B.ýü# 1585 %s
 is not a directory # dirþ & verror/c*ü# 160 % files+ý # dirþ ' listdir°% filesü# 161 % files $ NULLA.ý! 0 + String_Type!°% files/cýü# 163 # patþ . glob_to_regexp°# patýýýü# 164 ( Int_Type}, string_match % files # pat! 1þ ) array_mapþ % where % files!°%
 filesýýü# 165 % filesþ * array_sort % files!°% files*ü# 167 $ cbuf+ ' whatbuf°$ cbufýü# 168+ *directory*þ ' pop2buf*ü# 169 $ file # buf % flags+ü# 170 + getbuf_info°% flags°# bufP°$ fileýü# 171 $ file # dir # buf % flagsþ + setbuf_infoü# 173 , erase_buf
ferýü# 174 % filesþ & length.ýü# 176 ) Void_Type}' vinsert$$ %s\n % filesþ ) array_mapü# 177 8 buffer_format_in_columns/cü# 179 # bobýü# 180$. Directory %s\n # dirþ ' vinsertü# 181 # bobýü# 182! 0þ 8 set_buffer_modified_flagýü# 183 $ cbufþ ' pop2bufü# 14
7y. list_directory