.#% Occur°" $1ý " $1þ ( keymap_p.ý " $1þ + make_keymap/bý/ occur_goto_line! g " $1þ ) definekey* , Occur_Buffer+ + Null_String°, Occur_Buffer,* $ line+ý , Occur_Bufferþ ' bufferp.w/b # bol ) push_marký! :þ % ffind. * pop_mark_0w/bý ) bufsubstrþ
 ' integer°$ lineý , Occur_Bufferþ ' pop2bufý $ lineþ ) goto_liney/ occur_goto_line,* # str # tmp ! n+ý2 Find All (Regexp): + LAST_SEARCH + Null_Stringþ ) read_mini°# str' *occur*°# tmp ' whatbuf°, Occur_Bufferý # tmpþ ' pop2buf , erase_bufferý
 , Occur_Bufferþ ' pop2buf ) push_spot # bob.ý # strþ * re_fsearch/. . line_as_string ) what_line°! ný # tmpþ & setbufý$ %4d: ! nþ ' vinsertýþ & insert ' newlineý , Occur_Bufferþ & setbuf # eol/f ( pop_spotý # tmpþ & setbuf # bobý! 0þ
 8 set_buffer_modified_flagý% Occurþ * use_keymapý/ occur_mode_hookþ . run_mode_hooksy% occur