.#" 27( srchmisc ' require" 281 Isearch_Highlight! 1 / custom_variable,*" 29 + search_func ' default+" 31 + search_func ) which_keyP.*" 33 # key+# key" 34 # key & strlen! 2A." 36! 0 # key!" 94A." 37! 1 # key!" 64:w/c/c/ " 40 ' defaultw" 29- get_bound_key" 434 Isearch_Forward_Char" 44/ isearch_forward" 19 - get_bound_key" 43 / custom_variable" 455 Isearch_Backward_Char" 460 isearch_backward" 18 - get_bound_key" 45 / custom_variable" 471 Isearch_Q uit_Char" 27 / custom_variable" 482 Isearch_Abort_Char! 7 / custom_variable" 54+ SEARCH_WRAP! 0 / custom_variable*" 56 3 Isearch_Last_Search+ 3 Isearch_Last_Search(" 58 2 Last_Search_Failed+! 02 Last_Search_Failed,*" 60 # dir+" 62! 02 Last_Search_Failed" 64 # dir! 0=." 65 / search_backward/." 67 . search_forward/d" 68 + LAST_SEARCH3 Isearch_Last_Search" 605 isearch_simple_search,*" 71 # str # dir+*" 73 " cs+ + CASE_SEARCH" cs" 74 # str & strlow # strB." 75! 1+ CAS E_SEARCH/c" 77 # dir! 0?." 78 # str ' fsearch# dir/." 80 # str ' bsearch# dir/d" 82 " cs+ CASE_SEARCH" 83 # dirw" 71. perform_search(" 86 . Position_Stack+,*" 87 0 attached_to_char+*" 89 ! s+" 91$ mark0 attached_to_char$ next! 3" 89! s" 93 0 create_user_mark ! s$ mark" 94 0 attached_to_char ! s0 attached_to_char" 95 . Position_Stack ! s$ next" 96 ! s. Position_Stack" 87- push_position,# 101 $ NULL. Position_Stack" 995 delete_position_stack,*# 104 # str+*# 106 0 attached_to_char+! 10 attached_to_char# 108 . Position_Stack $ NULLB.*# 110 ! s+ . Position_Stack! s# 111 ! s"$ next. Position_Stack# 112 ! s"0 attached_to_char0 attached_to_char# 113 ! s"$ mark . goto_user_mark/c# 116 0 attached_to_char.*# 118 ! n+ # str & strlen! n# 119 ! n.# 120 # str! 1 ! n! 1: & substr# str/c/c# 123 # strw# 104+ isearch_del,*# 126 # dir+*# 128 & prompt # str+ # str*# 129 ! c % first+! 1% first*# 130 # len+! 0# len# 132 5 delete_position_stack* # 133 * start_mark+ 0 create_user_mark* start_mark.# 137 5 delete_position_stack# 138! 02 Last_Search_Failed/o.# 142 5 delete_position_stack# 143! 02 Last_Search_Failed/n.*# 148 - prompt_prefix+*# 149 - prompt_suffix+*# 150 ! h+ . is_line_hid den! h# 151! 0 / set_line_hidden# 153 2 Last_Search_Failed.# 155) Failed: i- prompt_prefix# 156 # str & strlen! 0?.# 157" : - prompt_suffix/.# 159 - prompt_suffix/d/.# 163! I- prompt_prefix# 164" : - prompt_suffix/d# 166 # dir! 0?.# 167 - prompt_prefix. search forward9 - prompt_suffix9& prompt/.# 169 - prompt_prefix/ search backward9 - prompt_suffix9& prompt/d# 171 & prompt # str9 ' message# 173 ) push_spot# 1751 IGNORE_USER_ABORT# 176 1 Isearch_Highlight.# 178 # str * looking_at 2 Last_Search_Failed! 0AC.# 179 # str & strlen # dir 0 mark_next_nchars/c/.# 183 # dir! 0? # str * looking_atC.# 184 # str & strlen ( go_right/c/d# 186! 0 7 update_sans_update_hook# 187 ( pop_spot./.# 193 & getkey! c/.# 1981 IGNORE_USER_ABORT/# 200 ! h / set_line_hidden# 201 ! c.# 202 1 Isearch_Quit_Charx % firstC3# 203 # dir 5 isearch_simple_searchv/.# 205 4 Isearch_Forward_Charx3# 206! 0 - push_position# 207 # dir! 0=.# 210! 02 Last_Search_Fa iled# 211! 1# dir/.# 215 * go_right_1# 216 # str & strlen.# 218 3 Isearch_Last_Search# str# 219 # str & strlen# len/b/d/.# 223 5 Isearch_Backward_Charx3# 224! 0 - push_position# 225 # dir! 0?.# 228! 02 Last_Search_Failed# 229" -1 # dir# 230" 32! c/.# 234 # str & strlen. 3 Isearch_Last_Search# str/b/d/.# 237# 127x3# 239! 02 Last_Search_Failed# 240 # str + isearch_del# stru/.# 243 2 Isearch_Abort_Charx3# 244 * start_mark . goto_user_mark# 245 $ beepw/.# 249" 1 3x % firstC3# 250 # dir! 0?. . search_forwardw/.# 251 / search_backwardw/d/.# 254" 27x3# 255! 3 - input_pending.# 256 ! c ( ungetkey/cv/.# 266 ! c" 32=3# 267 ! c" 13B. ! c ( ungetkey/cv/.# 271 ! c $ char# str# 272! 1 - push_posit ion# 274! 02 Last_Search_Failed/j# 277! 0% first# 279 2 Last_Search_Failed + SEARCH_WRAP! 0?C.# 285! 02 Last_Search_Failed# 286 ) push_mark# 287 # dir! 0?.# 288 # bob/.# 290 # eob/d# 291 # str # dir . perform_searchN ( pop_marku/c# 2 98 # dir! 0= # str * looking_atC ! c" 32@C.u/c# 301 # str # dir . perform_search.# 302 # str & strlen# len/.*# 305 # msg+# 306 ! c 4 Isearch_Forward_CharA. ) go_left_1/c# 307 # str & strlen! 0?.# 308 # str+ not found. & strcat# msg/ .# 3101 No search string.# msg/d# 311 # msg % flush# 313 + SEARCH_WRAP! 1=.# 314 $ beep/c# 315" 10 - input_pendingP# 317 / EXECUTING_MACRO.# 318* Not found. % error/c# 321! 12 Last_Search_Failed/d/e# 325 3 EXECUTE_ERROR_BLOCK# 326 # str & strlen.# 327 # str3 Isearch_Last_Search/c# 328 # dir! 0?.# 329 # str & strlen # len: ( go_right/c# 330% Done. ' message# 126y+ isearch_dir,# 337! 1 + isearch_dir# 333y/ isearch_forward,# 345" -1 + isearch_dir# 341y0 ise arch_backward