.#,* % clean+4 Cleaning man page...°% clean - push_spot_bobý % cleanþ % flushý" _ + Null_Stringþ ' replace.ý! þ ' fsearch/. # del # del/f + trim_buffer ( pop_spotýý % clean$ doneþ & strcatþ % flushy1 man_clean_manpage,* $ subj # buf+
. *manual-entry*°# buf* # msg+3 Getting man page...°# msgý# man + Null_String + Null_Stringþ ) read_mini°$ subjý $ subjþ & strlen.w/bý # bufþ ' pop2bufý! 0þ , set_readonly , erase_bufferý # msgþ % flushýý3 man %s 2> /dev/null $ subjþ ' sprintfþ
 - run_shell_cmdP 1 man_clean_manpage # bobý! 0þ 8 set_buffer_modified_flag ) most_modeý! 1þ , set_readonlyy( unix_man