.#ýü! 6( srchmiscþ ' require,*ü! 8 # pat # dir+*ü" 10 # ret+ü" 11 # dir! 0?.ý # patþ * re_fsearch°# ret/.ý # patþ * re_bsearch°# ret/dü" 12¹# ret # retü! 8y- re_search_dir,*ü" 17 # pat ) not_found+! 1°) not_foundýü" 180 Search (Regexp): + Null_Strin
g + Null_Stringþ ) read_mini°# patýü" 19 # patþ & strlen.w/bü" 21 ) push_mark.ýü" 24 ) not_foundþ ( pop_mark/nýü" 27}- re_search_dir # pat! 1ü" 28}2 _function_return_1þü" 27 2 search_maybe_againN°) not_foundü" 29 ) not_found.ý* Not found.þ % error/cü" 3
0 3 EXECUTE_ERROR_BLOCKü" 15y1 re_search_forward,*ü" 35 # pat ) not_found+ýü" 369 Backward Search (Regexp): + Null_String + Null_Stringþ ) read_mini°# patýü" 37 # patþ & strlen.w/bü" 39 ) push_mark.ýü" 42 ) not_foundþ ( pop_mark/nýü" 45}- re_search_dir 
# pat" -1ü" 46}2 _function_return_1þü" 45 2 search_maybe_againN°) not_foundü" 48 ) not_found.ý* Not found.þ % error/cü" 49 3 EXECUTE_ERROR_BLOCKü" 33y2 re_search_backward,*ü" 52 # pat+ýü" 54 # patþ * re_fsearch! 1:ü" 52…8 research_search_function,*ü" 
57 # str # len+ýü" 59 # str! 0þ - replace_match.ýü" 605 replace_match failed.þ % error/bü" 61" -2ü" 57…3 re_replace_function,*ü" 66 # pat ! n # rep & prompt $ doit # err " ch+ü" 68/ Replace Failed!°# errýü" 69' Regexp: + Null_String + Null_Stringþ 
) read_mini°# patýü" 70 # patþ & strlen.w/býýü" 71) Replace ' # patþ & strcat' ' with:þ & strcat°& promptýü" 72 & prompt + Null_String + Null_Stringþ ) read_mini°# repýü" 74}8 research_search_function # pat # rep! 1ü" 75}3 re_replace_functionþü" 74 2 r
eplace_with_queryü" 64y3 query_replace_match