.#,* ! n # buf & trybuf+ + Null_String°& trybuf* " ch+ + buffer_list°! n ! n.°# buf¹! ný! 0 # buf!°" ch " ch" 32A " ch" 42ADý ' whatbuf # bufþ & strcmpND.u/c # buf°& trybufv/i ! n.P/iý1 Switch to buffer: & trybuf + Null_String" 98þ
 4 read_with_completion°& trybufý & trybufþ & strlen.ý & trybufþ ' pop2buf/cy8 find_buffer_other_window,* $ file+ý* Find file:þ 3 read_file_from_mini°$ fileýý $ fileþ 0 extract_filenameþ & strlen.w/bý $ fileþ ) read_file.ý) New file.þ ' message/bý
 ' whatbufþ ' pop2bufy6 find_file_other_window,* $ file+ý4 Find alternate file:þ 3 read_file_from_mini°$ fileýý $ fileþ 0 extract_filenameþ & strlen.w/bý ' whatbufþ & delbufý $ fileþ ) find_file.ý) New file.þ ' message/by3 find_alternate_file,*
 % white+&  	\r\n°% whiteý % whiteþ + bskip_chars ( eol_trim ) go_down_1 ( eol_trim # bol $ eolp. ) go_down_1 ) push_marký % whiteþ * skip_chars # bol * del_region/cy2 delete_blank_lines,ý$  	\nþ * skip_charsý" 40þ / looking_at_charý# 123þ
 / looking_at_charDý" 91þ / looking_at_charD.ý ) what_charþ 7 find_matching_delimiter! 1A. * go_right_1/cw/cý+ ^ 	\n()[]{}þ * skip_charsy, forward_sexp,ý$  	\nþ + bskip_chars ) go_left_1ý" 41þ / looking_at_charý# 125þ / looking_at_charDý" 93þ
 / looking_at_charD.ý! 0þ 7 find_matching_delimiterPw/cý+ ^ 	\n()[]{}þ + bskip_charsy- backward_sexp,* " kr+. yp_kill_region°" kr ) push_mark , forward_sexpý $ eolpþ ( go_rightý " krþ * is_defined.ý " krþ $ eval/.ý+ kill_regionþ $ call/dy) kill_sexp
,* ! m+ + window_line°! m & down_1.ý ! mþ ( recenter/c # boly2 scroll_up_in_place,* ! m+ + window_line°! m $ up_1.ý ! mþ ( recenter/c # boly4 scroll_down_in_place,* # str+ý< String to replace rectangle:    þ ) read_mini°# str # str  A.w/cý! 1þ
 , check_region 7 exchange_point_and_mark* # col+ + what_column°# col* $ line+ ) what_line°$ line 7 exchange_point_and_mark* & nlines+ ) what_line $ line:! 19°& nlines ) kill_rectý $ lineþ ) goto_line & nlines.ý # colþ + goto_columný # strþ & insertý
! 1þ ' go_down/i ( pop_spoty0 string_rectangle,* # pat+ý. list directoryþ 3 read_file_from_mini°# patý # patþ & strlen.w/b* # dir+ý # patþ , path_dirname°# dirý # patþ - path_basename°# patý # patþ & strlen.! *°# pat/bý # dirþ + file_status! 2B.ý
5 %s is not a directory # dirþ & verror/c* % files+ý # dirþ ' listdir°% files % files $ NULLA.ý! 0 + String_Type!°% files/cý # patþ . glob_to_regexp°# patýýý ( Int_Type}, string_match % files # pat! 1þ ) array_mapþ % where % files!°% filesýý % filesþ
 * array_sort % files!°% files* $ cbuf+ ' whatbuf°$ cbufý+ *directory*þ ' pop2buf* $ file # buf % flags+ + getbuf_info°% flags°# bufP°$ fileý $ file # dir # buf % flagsþ + setbuf_info , erase_bufferý % filesþ & length.ý ) Void_Type}' vinsert$ %s\n
 % filesþ ) array_map 8 buffer_format_in_columns/c # bobý. Directory %s\n # dirþ ' vinsert # bobý! 0þ 8 set_buffer_modified_flagý $ cbufþ ' pop2bufy. list_directory