.#! 2' keydefs ' require! 3$ glob$ glob ( autoload(! 8 ( Help_Buf+, *help-slang*( Help_Buf(! 9 + Help_Keymap+, *help-slang*+ Help_Keymap(" 10 0 Mini_Help_String+M ?:this-message, RET:help-on-word, q:quit-help0 Mini_Help_String,*" 12 + p rev_buffer+" 14 ' whatbuf ( Help_BufA.*" 16 # str+ 0 Mini_Help_String# str" 17 4 _Reserved_Key_Prefix $ NULLB." 18 4 _Reserved_Key_Prefix 0 Mini_Help_String9# str/c" 19 # str ' message/c" 12; help_buf_switch_buffer_hook," 25- delete_window $ call" 23y/ help_slang_quit," 35 + Help_Keymap ( keymap_p." 37 + Help_Keymap + make_keymap" 38, help_apropos! ? + Help_Keymap ) definekey" 39* help_slang$" \r + Help_Keymap ) definekey" 40/ help_slang_quit! q + Help_Keymap ) defin ekey" 41* help_slang! ? + Help_Keymap 2 definekey_reserved/b*" 44 $ cbuf+ ' whatbuf$ cbuf" 45 ( Help_Buf ' bufferp." 47 ( Help_Buf & setbuf" 48 + Help_Keymap * use_keymap" 49 $ cbuf & setbuf/c" 51? _jed_switch_active_buffer_hooks}; h elp_buf_switch_buffer_hook + add_to_hook" 33- attach_keymap(" 54 * Word_Chars+* 0-9A-Z_a-z* Word_Chars,*" 63 % chars+" 65 % markp.." 70! ^ % chars9 * skip_chars" 71 $ eolp.v/b/." 73 & down_1/k" 74 % chars + bskip_chars" 75 ) push_mark % chars * skip_chars/b" 77 ) bufsubstrw" 63, extract_word" 94D Help_Describe_Bindings_Show_Synopsis! 0 / custom_variable,*" 97 # key+*" 99 ' new_key+ ' new_key*# 100 ! i+! 1! i* ! n+ # key & strlen! n.# 101 ! i ! n>/.*# 103 ' the_k ey+ # key ! i! 1 & substr' the_key! i# 104! 0 ' the_key!" 32=.# 105! ^! 0 ' the_key!" 649 $ char & strcat' the_key/c# 106 ' new_key ' the_key & strcat' new_key/f# 108 ' new_keyw" 971 convert_keystring,*# 113 ( key_vars+& Glo bal$( \\c^Key_! 8 ( _apropos( key_vars*# 114 ! a+ + String_Type * Assoc_Type!! a# 115 ( key_vars.*# 117 ( key_name+( key_name*# 118 $ vref+ ( key_name / __get_reference$ vref# 119 $ vref $ NULLA.u/c# 121! 0 $ vref 0 __is_initializedA.u/ c*# 123 % value+ $ vrefM% value# 124 % value & typeof + String_TypeB.u/c# 126 % value A.u/c# 128 ( key_name! 5" -1 & substr! _! - / str_replace_all( key_name# 129 % value 1 convert_keystring% value# 130 ( key_name % value ! a/# 132 ! aw# 1113 make_key_name_table(# 135 . Key_Name_Table+ 3 make_key_name_table. Key_Name_Table,# 1363 make_key_name_table# 140( ALT_CHAR / __get_reference" $1# 141 " $1 $ NULLB.# 143 " $1M" $1# 144 " $1! 0B.# 145 . Key_Name_Table " $1 $ char 1 convert_keystring 0 assoc_delete_key/c/c# 149 . Key_Name_Table! 0 assoc_key_exists.# 150% Space! . Key_Name_Table/b,*# 152 # seq # key+*# 154 ! n+ # key * strbytelen! n# 155 # seq # key ! n + strnbytecmp.# 156! 0w/c # 158 ! nw# 152& keyeqs,*# 172 # seq+*# 174 ( alt_char+! 0( alt_char# 176( ALT_CHAR * is_defined.# 177( ALT_CHAR / __get_referenceM( alt_char/c# 179 # seq 1 convert_keystring# seq# 181 . Key_Name_Table # seq 0 assoc_key_exists.# 182 # seq . Key_Name_Table!w/c*# 184 ( key_seqs+ . Key_Name_Table . assoc_get_keys( key_seqs*# 185 ( key_name , expanded_key+ , expanded_key.*# 189 ! n+ # seq * strbytelen! n# 190 ! n! 0A.v/c*# 193 " dn+! 0" dn# 194 ( key_seqs.*# 196 ' key_seq+' key_seq# 197 # seq ' key_seq & keyeqs" dn# 198 " dn.# 200 ' key_seq . Key_Name_Table!( key_namev/c/*# 204 , append_space+! 1, append_space# 205 " dn! 0A.# 207! 0 # seq!" 94A ! n! 1?C.*# 209 " ch+! 1 # seq!" ch# 210 " c h.# 211" 73x3# TAB/.# 212" 77x3# RET/.# 213" 91x3# 214 ( alt_char" 27A! 2 # seq!! 0BC.# 216! 0, append_space# 217$ Alt-/.# 220# ESC/d/.# 224% Ctrl-! 1 # seq! $ char9/j# 226( key_name# 227! 2" dn/.# 231 # seq! 1! 1 & sub str( key_name# 232 ( key_name * strbytelen" dn/d/c# 235 , expanded_key ( key_name & strcat, expanded_key# 236 , append_space.# 237 , expanded_key! & strcat, expanded_key/c# 238 # seq " dn! 19" -1 + substrbytes# seq/e# 240 , expan ded_key & strlen.# 241 , expanded_key! 1 , expanded_key & strlen! 1: & substrw/c# 242 , expanded_keyw# 172y0 expand_keystring,*# 248 ! f $ type+# 250* Show Key: % flush# 252 / get_key_binding! f$ type# 254 ! f $ NULLA.# 2566 Key "% s" is undefined.# 257 ' LASTKEY 0 expand_keystring# 256 ( vmessagew/c*# 261 " ks+ ' LASTKEY 0 expand_keystring" ks# 263 $ type.# 265! 0x3# 266! 1 ! f * is_definedA.# 267J Key "%s" runs the intrinsic function "%s". " ks ! f ( vmessage/. # 269G Key "%s" runs the S-Lang function "%s". " ks ! f ( vmessage/d/.# 272! 1x3# 273I Key "%s" runs the internal function "%s". " ks ! f ( vmessage/.# 276! 2x3# 277F Key "%s" runs the keyboard macro "%s". " ks ! f ( vmessage/.# 280! 3x3 # 2816 Key "%s" inserts "%s". " ks ! f ( vmessage/.# 284! 4x3# 285: Key "%s" is a reference %S " ks ! f ( vmessage/j# 246' showkey,*# 296 ! s+# 298 ! s $ NULLA.w/c# 299 ! s & strlen.w/b*# 301 ! a+& Global ! s" 15 ( _apropos! a*# 3 02 $ cbuf+ ' whatbuf$ cbuf# 3041 Found %d matches. ! a & length ( vmessage# 306 ( Help_Buf ' pop2buf# 307! 0 , set_readonly# 308 - attach_keymap# 309 , erase_buffer# 311 ! a * array_sort ! a!! a# 312! a.# 314 & insert# 315 ' ne wline/# 317 8 buffer_format_in_columns# 318 # bob# 319! 0 8 set_buffer_modified_flag# 320! 1 , set_readonly# 321 $ cbuf ' pop2buf# 296y0 help_for_apropos,# 333 1 MINIBUFFER_ACTIVE.w/c*# 334 ! s+( apropos:  ) read_mini! s# 335 ! s 0 help_for_apropos# 331y' apropos,*# 340 ! n # cmd+# 341 1 MINIBUFFER_ACTIVE.w/c# 3431 Where is command:  " 70 4 read_with_completion# cmd# 344 # cmd & strlen.w/b# 345 # cmd ) which_key! n# 346 ! n.0 Not on any keys. ' messa gew/b# 348 0 expand_keystring ' message# 349! n ! n.P/i# 338y( where_is,*# 352 ! f+*# 354 $ file+*# 355 ! n # str+# 357! 0! n# 358 $ NULL# str.# 361 - Jed_Doc_Files ! n" 44 / extract_element$ file# 362 $ file $ NULLA.v/c# 365! 2 $ file + file_statusA.# 367 $ file% *.hlp + path_concat $ glob.# 369$ file# 370 $ file ! f 8 get_doc_string_from_file# str# 371 # str $ NULLB.v/c//.# 376 $ file ! f 8 get_doc_string_from_file# str/d# 378! n/.# 380 # str $ NULLA/k# 382 $ file # strw# 352y3 help_get_doc_string,*# 385 ! f+*# 387 $ cbuf+ ' whatbuf$ cbuf*# 388 ' doc_str $ file+*# 389 # str+ # str# 393 ! f * is_defined! 0=.*# 396 % value+ ! f / __get_reference% value# 397 % value 0 __is_initialized. # 398$3 %S %s: value = %S\n % valueM & typeof ! f % valueM ' sprintf# str/.# 400$> %s: \n ! f# str/d/.# 402 ! f + is_internal.# 403 ! f$5 : internal function\n9# str/c/d# 405 ( Help_Buf ' pop2buf! 0 , set_readonl y , erase_buffer# 406 # str ' vinsert# 408 ! f 3 help_get_doc_string' doc_str$ file# 409 ' doc_str $ NULLB.# 4109 %s[Obtained from file %s] ' doc_str $ file ' vinsert/.# 411 ! f + is_internal.# 413$L \nUse call ("%s") to access from sl ang\n\n ! f ' vinsert# 414M You might bind an internal function to a key # 415$? using setkey() or definekey()\n# 414 & strcat & insert/.# 4191 %s: Undocumented ! f ' vinsert# 420 ! f * is_defined.# 422! 1x3# 4232 intrinsic function & insert/.# 426! 2x3# 427. slang function & insert/.# 430, and unknown & insert/j/d/d# 434$G \n-----------------------------------\n & insert# 436 # bob# 437! 0 8 set_buffer_modified_flag# 438! 1 , set_readonly# 439 $ cbuf ' pop 2buf# 385y1 help_for_function,*# 442 & prompt % flags+# 444 1 MINIBUFFER_ACTIVE.w/c*# 445 $ objs+& Global % flags ( _apropos$ objs# 446 $ objs * array_sort $ objs!$ objs# 447 $ objs! , ' strjoin$ objs# 448 & prompt $ objs ; re ad_string_with_completion 1 help_for_function# 442y7 help_do_help_for_object,# 4532 Describe Function:! 3 7 help_do_help_for_object# 454 - attach_keymap# 451y1 describe_function,# 4592 Describe Variable:" 12 7 help_do_help_for_object# 460 - attach_keymap# 457y1 describe_variable,# 473 * Word_Chars , extract_word# 474 0 help_for_apropos# 475 - attach_keymap# 471y, help_apropos,# 488 * Word_Chars , extract_word# 489 1 help_for_function# 490 - attach_keymap# 486y* help_slang, *# 495 % flags & modstr+# 496 ) what_mode% flags& modstr# 498 & modstr! 0" 32 / extract_element& modstr# 499 & modstr & strlen." no& modstr/b# 500 & modstr * is_defined.# 502 & modstr & strlow& modstr# 503 & modstr * is_defined.# 505% _mode& modstr# 506 & modstr * is_defined.# 5075 Mode is not defined: & modstr9 % error/b/b/b# 510 & modstr 1 help_for_function# 493y- describe_mode,# 5153 Building bindings.. % flush*# 516 # map+ + what_keymap# map*# 517 # buf+ ' whatbuf# buf# 518- *KeyBindings* ' pop2buf*# 519 # cse+ + CASE_SEARCH# cse! 1+ CASE_SEARCH# 520 , erase_buffer# 521 # map - dump_bindings# 523 # map& globalB.*# 525 - dump_end_mark+ 0 create_user_mark- dump_end_mark# 526$E \nInherite d from the global keymap:\n & insert# 527 ) push_spot# 528& global - dump_bindings# 529 ( pop_spot*# 531 * global_map+ + String_Type * Assoc_Type!* global_map.# 532 $ eobpN/.# 534 ) push_mark# 535# % ffindP*# 536 # key+ ) bufsubstr # key# 537! 3 ( go_right# 538 ) push_mark# 540# ' fsearch. # eob/b# 541 ' go_up_1# 542 ' dupmarkP# 543 ) bufsubstr # key * global_map# 544 * del_region# 545 + delete_line/f# 548 # bob.# 551 ) push_mark# 552# % ffindP# 553 ) bufsubstr# key# 554 # key A.v/c*# 557 . global_map_key+ # key * global_map!. global_map_key# 558! 3 ( go_right# 559 . global_map_key B.# 561 ) push_mark# 562# ' fsearchP# 563 0 create_user_mark - dump_end_mark?.# 564 - dump_end _mark . goto_user_mark/c# 565 ' go_up_1# 566 ' dupmarkP# 568 ) bufsubstr . global_map_keyA.# 570 * del_region# 571 + delete_line# 572 ) push_spot# 573 # eob# 574 . global_map_key$" \n$# \\n . global_map_key & strlen * strreplaceP. global_map _key# 575$) %s %s\n # key . global_map_key ' vinsert# 576 ( pop_spot/.# 580 * pop_mark_0# 581 ) go_down_1/d/.# 586# ' fsearchP# 587 # bol/d/e/.# 593 # bob.# 594 $ eobpN/.# 596# % ffind.# 598 ' go_up_1# 599$# \\n & insert# 600 # del/b# 602! 0 & down_1A.v/c/f/d# 606 # bob.# 610 ) push_mark# 611# % ffindN.# 613! 0 ( pop_marku/c# 617 ) bufsubstr# key*# 618 ' old_len+ # key & strlen' old_len# 619 # key# ESC!  # key & strlen * strreplaceP# key# 620 # key! 0 str_delete_chars# key# 621 # key% SPACE! # key & strlen * strreplaceP# key# 622 # key# DEL!  # key & strlen * strreplaceP# key# 623 # key# TAB! # key & strlen * strreplaceP# key# 624 # bol# 625 ' old_len # key 0 expand_keystring - replace_charsP# 627 + what_column # TAB>.# 628! 9 + insert_char/.# 631 + what_column # TAB! 4;>.# 632 + what_column! 1: # TAB<! 1: $ deln/.# 634! 3 $ deln/d/d/.# 637 & down_1/k# 639 # bob.# 643 # bob# 644 # cse+ CASE_SEARCH# 645! 0 8 set_buffer_modified_flag# 646 # buf ' pop2buf# 647$ done ' message/o# 650 D Help_Describe_Bindings_Show_Synopsis! 0A.w/c*# 653 ( synopsis+ + String_Type * Assoc_Type!( synopsis# 654> Looking up key descript ions... % flush.# 655# ' fsearch/.# 657! 3 ( go_right# 658" 64 / looking_at_char." 32 / looking_at_char/7.u/c# 660" 46 / looking_at_char.# 662 # eol# 663' a-zA-Z_ + bskip_chars/c# 666 ) push_mark# 667" 40 * ffind_char.# 668 # eol/b*# 669 # fun+ ) bufsubstr# fun*# 670 # dsc+# 671 ( synopsis # fun 0 assoc_key_exists.# 672 # fun ( synopsis!# dsc/.# 675 # fun 3 help_get_doc_string# dscP# 676 # dsc $ NULLA. # dsc/c# 677 # dsc # fun ( synopsis/d# 680 # dsc  B.# 682 # eol# 683 # dsc # dsc$. \n SYNOPSIS\n ) is_substr" 129 # dsc & strlen & substr# dsc# 684" 48 + what_column: * whitespace# 685 # dsc! 1 # dsc$" \n ) is_substr! 1: & substr & insert/c# 687 # eol/f# 513y1 describe_bindi ngs