View file File name : edt.slc Content :.#�! 5# edt�. _Jed_Emulation��" 15( Key_Gold# OP� / custom_variable�" 17 ( Key_Gold $ NULLA ( Key_Gold AD.�" 18# OP�( Key_Gold/c��" 24P (Jed %v) EDT: %b (%m%a%n%o) %p Advance %t! 1� / set_status_line�" 35! 1�( WANT_EOB��" 36* Edt_Loaded � * is_defined.*�" 38 * Edt_Loaded+*�" 39 ( edt_pbuf+�" 40& <edt>�( edt_pbuf�" 41 ' whatbuf��" 42 ( edt_pbuf� & setbuf���" 43 & sw2buf/b,�" 46 ( exit_jedy$ quit(�" 49 0 Edt_Keypad_State+,*�" 50 % state+�" 52 % state�0 Edt_Keypad_State*�" 54 ! t+" ke� ! t* ! e+" >�! e�" 55 % state.�" 57" ks�! t�" 58" =�! e/c*�" 61 ! s+� ! t� 2 get_termcap_string�! s��" 62 ! s� & strlen.�" 63 ! s�! e/c��" 65 ! e� ' tt_send�" 50�7 application_keypad_mode,*�" 74 " on # off+�" 76( Numeric.�# off, Application.�" on� " 81 0 Edt_Keypad_StateN�0 Edt_Keypad_State�" 83 0 Edt_Keypad_State.��" 84 " on� ' message/.��" 86 # off� ' message/d��" 88 0 Edt_Keypad_State� 7 application_keypad_mode�" 72y, edt_togglekp(�" 91 ' EDT_Dir+! 1�' EDT_Dir,�# 104! 1�' EDT_Dir��# 105O (Je d %v) EDT: %b (%m%n%o) %p Advance %t! 1� / set_status_line�# 102y+ edt_advance,�# 119" -1�' EDT_Dir��# 120O (Jed %v) EDT: %b (%m%n%o) %p Backup %t! 1� / set_status_line�# 117y* edt_backup*�# 124 ( edt_wbuf ( edt_lbuf ( edt_cbuf+�# 12 5 + Null_String�( edt_wbuf + Null_String�( edt_lbuf! 0�( edt_cbuf,�# 130 $ eobp. ) what_char�( edt_cbuf # del/b�# 128y( edt_cdel,�# 134 ( edt_cbuf.� ( edt_cbuf� + insert_char ) go_left_1/c�# 132y) edt_ucdel,�# 139 ' EDT_Dir! 1A.�# 141 $ eolp. * go_ri ght_1w/c�# 142 / skip_word_chars 3 skip_non_word_chars/.�# 146 $ bolp. ) go_left_1w/c�# 147 4 bskip_non_word_chars 0 bskip_word_chars/d�# 137y( edt_word,�# 161 ) push_mark�# 162 ( edt_word�# 163 0 bufsubstr_delete�( edt_wbuf�# 159y( edt_wdel,����# 1694 char code (decimal):" 27 + Null_String� ) read_mini� ' integer� + insert_char�# 167y+ edt_specins,�# 182 ) push_spot� ( edt_wbuf� & insert ( pop_spot�# 180y) edt_uwdel,�# 188 - push_mark_eol 0 bufsubstr_delete�( edt_lbuf�# 186y* edt_deleol,�# 192 ) p ush_mark # bol 0 bufsubstr_delete�( edt_lbuf�# 190y* edt_delbol,�# 209 3 mark_to_visible_eol�# 210 * go_right_1�# 211 0 bufsubstr_delete�( edt_lbuf�# 207y( edt_ldel,�# 224 ) push_spot� ( edt_lbuf� & insert ( pop_spot�# 222y) edt_uldel,�# 239 ' EDT_Dir ! 1A. . search_forward/. / search_backward/d�# 237y( edt_find,*�# 253 ! r % found+�# 254! 0�! r��# 255 + LAST_SEARCH� & strlen.�# 257 ' EDT_Dir! 1A.��# 259! 1� % right�! r��# 260 + LAST_SEARCH� ' fsearch�% found/.��# 262 + LAST_SEARCH� ' bsearch�% fou nd/d�# 263 % found.��# 265 ! r� ' go_left��# 266* Not Found.� % error/b/.��# 269* Find What?� % error/d�# 251y+ edt_findnxt,*�# 272 ! n+.�# 276 , _clear_error/n�# 278 ! n.�- next_line_cmd� $ call/i�# 272y- edt_go_down_n,*�# 281 ! n+.�# 285 , _clear_ error/n�# 287 ! n.�1 previous_line_cmd� $ call/i�# 281y+ edt_go_up_n,�# 301 ' EDT_Dir! 1A.�" 16� - edt_go_down_n/.�" 16� + edt_go_up_n/d�# 302 # bol�# 299y( edt_sect,�# 307 ' EDT_Dir! 1A.�# 309 $ eolp.�! 1� - edt_go_down_n/c/.��# 311! 1� + edt_g o_up_n/d�# 312 # eol�# 305y' edt_eol,�# 317 ' EDT_Dir! 0?.�! 1� - edt_go_down_n/.�# 318 $ bolp.�! 1� + edt_go_up_n/c/d�# 319 # bol�# 315y( edt_line,�# 324 ' EDT_Dir! 1A. * go_right_1/. ) go_left_1/d�# 322y( edt_char,�# 329 ' newline ) go_left_1�# 3 27y) edt_oline,�# 335 + edt_advance.�# 336 % markp/. * pop_mark_0/f��# 337( kbd_quit� $ call�# 333y) edt_reset,*�# 354 # ret " ff+��# 355" 12� $ char�" ff�# 356 ' EDT_Dir! 1A.� " ff� ' fsearch�# ret/.� " ff� ' bsearch�# ret/d�# 357 # ret.�! 1� ( re center/c�# 352y( edt_page,*�# 362 ! b+�# 363 ' dupmark.w/b�# 364 ' whatbuf�! b��# 365 ( edt_pbuf� & setbuf�# 366 , erase_buffer��# 367 ! b� & setbuf��# 368 ( edt_pbuf� + copy_region�# 369 * del_region�# 360y' edt_cut,��# 373 ( edt_pbuf� & insbuf�# 371y) edt_paste,*�# 389 ! b+�# 390 ' whatbuf�! b��# 391 ( edt_pbuf� & setbuf�# 392 # eob��# 393 ! b� & setbuf�# 394 ' dupmark.��# 396 ( edt_pbuf� + copy_region�# 397 * del_region/.��# 399* No Region.� % error/d�# 387y* edt_append,�# 404 * del_region ) edt_p aste�# 402y+ edt_replace,��# 412 + LAST_SEARCH� * looking_at.���# 414 + LAST_SEARCH� & strlen� $ deln�# 415 ) edt_paste��# 416 + LAST_SEARCH� * looking_at. + edt_findnxt/b/.��# 4188 Select range not active.� % error/d�# 410y( edt_subs,��# 424' edt.hlp � - jed_easy_help�# 422y( edt_help,*�# 430 ! n+�# 431 % markp.�# 433 ) push_mark��# 434 + LAST_SEARCH� & strlen�! n�# 435 ! n� + LAST_SEARCH� * looking_atC.� ! n� ( go_right/.�# 436 ' EDT_Dir! 1A. * go_right_1/.�# 437 ) go_left_1/d/d/b��# 439" 88� , xf orm_region�# 428y+ edt_chgcase,*�# 453 ! n+��# 454 + LAST_SEARCH� & strlen�! n�# 456 ! n� + LAST_SEARCH� * looking_atC.� ! n� $ deln/.�# 459 % markp.�8 Select range not active.� % error/b�# 460 * del_region/d�# 462 ) edt_paste�# 451y+ edt_replace*�# 465 0 EDT_Scroll_Begin+! 3�0 EDT_Scroll_Begin,*�# 468 ! n % max_n & w_rows+��# 469# 114� + window_info�& w_rows�# 470 & w_rows! 2 0 EDT_Scroll_Begin;! 2:?.�# 472 + window_line�! n�# 473 & w_rows 0 EDT_Scroll_Begin:! 19�% max_n�# 474 ! n 0 EDT_Scroll_Be gin=.� 0 EDT_Scroll_Begin� ( recenter/c�# 475 ! n % max_n?.� % max_n� ( recenter/c/c�# 466y0 edt_check_scroll,*�# 479 ! x+��# 481 ( Key_Gold ! x� & strcatw�# 479�$ GOLD��# 488" ^U� ( unsetkey��# 492/ self_insert_cmd! "� & setkey��# 493/ self_insert_c md! '� & setkey��# 503 ( Key_Gold� ( unsetkey��# 504( edt_subs�# OM� $ GOLD� & setkey��# 507( exit_jed�! Q� $ GOLD� & setkey��# 508( exit_jed�! E� $ GOLD� & setkey��# 510, edt_togglekp� ( Key_Gold� $ GOLD� & setkey��# 512* edt_delbol" ^U� & set key��# 513( edt_help# OQ� & setkey��# 514+ edt_findnxt# OR� & setkey��# 515( edt_ldel# OS� & setkey��# 516( edt_cdel# Ol� & setkey��# 517( edt_wdel# Om� & setkey��# 5182 smart_set_mark_cmd# On� & setkey��# 519( edt_line# Op� & setkey� �# 520( edt_word# Oq� & setkey��# 521' edt_eol# Or� & setkey��# 522( edt_char# Os� & setkey��# 523+ edt_advance# Ot� & setkey��# 524* edt_backup# Ou� & setkey��# 525' edt_cut# Ov� & setkey��# 526( edt_page# Ow� & setkey��# 527( edt_s ect# Ox� & setkey��# 528* edt_append# Oy� & setkey��# 529( edt_help�# OQ� $ GOLD� & setkey��# 530( edt_find�# OR� $ GOLD� & setkey��# 531) edt_uldel�# OS� $ GOLD� & setkey��# 532) edt_ucdel�# Ol� $ GOLD� & setkey��# 533) edt_uwdel�# Om � $ GOLD� & setkey��# 534) edt_reset�# On� $ GOLD� & setkey��# 535) edt_oline�# Op� $ GOLD� & setkey��# 536+ edt_chgcase�# Oq� $ GOLD� & setkey��# 537* edt_deleol�# Or� $ GOLD� & setkey��# 542+ edt_specins�# Os� $ GOLD� & setkey��# 544# eo b�# Ot� $ GOLD� & setkey��# 545- beg_of_buffer�# Ou� $ GOLD� & setkey��# 546) edt_paste�# Ov� $ GOLD� & setkey��# 547, evaluate_cmd�# Ow� $ GOLD� & setkey��# 5480 format_paragraph�# Ox� $ GOLD� & setkey��# 549+ edt_replace�# Oy� $ GOLD� & setkey��# 550) exit_mini# OM� & setkey��# 564( Mini_Map� ( keymap_p.��# 566 ( Key_Gold( Mini_Map� + undefinekey��# 567) exit_mini# OM( Mini_Map� ) definekey��# 568) edt_reset�# On� $ GOLD( Mini_Map� ) definekey/c�# 573! 0! 9! 1.�# 575�" $ 0��# 576) digit_arg�� " $0� & string� $ GOLD� & setkey/h��# 580( edt_find$ [1~� & setkey��# 581$ yank$ [2~� & setkey��# 582+ kill_region$ [3~� & setkey��# 5832 smart_set_mark_cmd$ [4~� & setkey��# 585. emacs_escape_x% [29~� & setkey��# 58 6( edt_help% [28~� & setkey��# 590- beg_of_buffer�# [A� $ GOLD� & setkey��# 591# eob�# [B� $ GOLD� & setkey��# 592+ scroll_left�# [C� $ GOLD� & setkey��# 593, scroll_right�# [D� $ GOLD� & setkey��# 595@ ."page_up" call edt_check_scroll$ [5~� & setkey��# 596B ."page_down" call edt_check_scroll$ [6~� & setkey��# 597J ."previous_line_cmd" call edt_check_scroll# [A� & setkey��# 598J ."previous_line_cmd" call edt_check_scroll# OA� & setkey��# 599F ."next_line_cmd" call edt_check_scr oll# [B� & setkey��# 600F ."next_line_cmd" call edt_check_scroll# OB� & setkey��# 602! 1� 7 application_keypad_mode��# 6030 keybindings_hook . _Jed_Emulation� ( runhooks