.#,*! 4 & parent % popup # dir ' pattern # fun+*! 6 % files+*! 7 ! i+! 9 # dir ' listdir% files" 10 % files $ NULLA.w/c" 13 ( Int_Type}, string_match % files ' pattern! 1 ) array_map % where! i" 14 ! i & length! 0A.w/c" 17 ! i % file s!% files" 18 % files * array_sort % files!% files" 20 & parent % popup 1 menu_append_popup" 21 & parent! .9 % popup9% popup" 23 % files.*" 25 $ file+$ file" 26 $ file 1 path_sans_extname 1 path_sans_extname$ file" 27 % popup $ fil e # fun $ file 0 menu_append_item/! 4= add_files_popup_with_callback,*" 31 $ file+" 33 ( JED_ROOT( doc/txt/ $ file9$ .txt9 & dircat$ file*" 34 - is_compressed+! 0- is_compressed" 36 $ file + file_status! 1B." 38# .gz$ .bz2" .Z.* " 40 # ext+# ext" 41 $ file # ext9 + file_status! 1B.u/c" 44 $ file # ext9$ file" 45! 1- is_compressedv//c*" 49 % state+" 51 - is_compressed." 52! 1}% state 5 auto_compression_mode/c" 54 $ file ) read_fileP" 56 - is_compressed." 5 7 % state 5 auto_compression_mode/c" 59 ' whatbuf ' pop2buf" 60 ) most_mode" 314 browse_docs_callback,*" 64 * clientdata+" 66 ' whatbuf & delbuf" 64* close_file" 69, Global.&File" $1" 70 " $1% &Open) find_file 0 menu_append_item" 7 1 " $1& &Close}* close_file $ NULL 0 menu_append_item" 72 " $1% &Save+ save_buffer 0 menu_append_item" 73 " $1( Save &As, write_buffer 0 menu_append_item" 74 " $1- Save &Buffers1 save_some_buffers 0 menu_append_item" 75 " $1, &Insert F ile+ insert_file 0 menu_append_item" 80 " $1 5 menu_append_separator" 81 " $11 Canc&el Operation( kbd_quit 0 menu_append_item" 82 " $1% E&xit( exit_jed 0 menu_append_item" 92, Global.&Edit" $1" 93 " $12 &Begin Region/Rect2 smart_set_ mark_cmd 0 menu_append_item" 94 " $1+ &Cut Region. yp_kill_region 0 menu_append_item" 95 " $1, C&opy Region6 yp_copy_region_as_kill 0 menu_append_item" 96 " $1& &Paste' yp_yank 0 menu_append_item" 97 " $1+ Re&gion Ops 1 menu_append_pop up" 98 " $1+ &Rectangles 1 menu_append_popup" 99 " $1 5 menu_append_separator# 100 " $1+ &Key Macros 1 menu_append_popup# 101 " $1 5 menu_append_separator# 102 " $1% &Undo$ undo 0 menu_append_item# 1048 Global.&Edit.&Key Macros" $1 # 105 " $1, &Start Macro+ begin_macro 0 menu_append_item# 106 " $1+ S&top Macro) end_macro 0 menu_append_item# 107 " $12 Replay &Last Macro- execute_macro 0 menu_append_item# 1098 Global.&Edit.&Rectangles" $1# 110 " $1. &Cut Rectangle) kill_rect 0 menu_append_item# 111 " $1/ C&opy Rectangle) copy_rect 0 menu_append_item# 112 " $10 &Paste Rectangle+ insert_rect 0 menu_append_item# 113 " $1/ Op&en Rectangle) open_rect 0 menu_append_item# 114 " $10 &Blank Rectangle* bl ank_rect 0 menu_append_item# 1168 Global.&Edit.Re&gion Ops" $1# 117 " $1+ &Upper Case1 .'u' xform_region 0 menu_append_item# 118 " $1+ &Lower Case1 .'d' xform_region 0 menu_append_item# 119 " $1( &Comment. comment_region 0 menu_append_i tem# 120 " $1* U&ncomment0 uncomment_region 0 menu_append_item# 121 " $1 5 menu_append_separator# 122 " $1- &Save to File, write_region 0 menu_append_item# 123 " $1/ &Append to File- append_region 0 menu_append_item# 124 " $1 5 menu_a ppend_separator# 125 " $11 Copy To &Register4 reg_copy_to_register 0 menu_append_item# 126 " $14 &Paste From Register3 reg_insert_register 0 menu_append_item# 127 " $1/ &View Registers- register_mode 0 menu_append_item# 129. Global.&Searc h" $1# 130 " $1/ Search &Forward. search_forward 0 menu_append_item# 131 " $10 Search &Backward/ search_backward 0 menu_append_item# 132 " $16 R&egexp Search Forward1 re_search_forward 0 menu_append_item# 133 " $17 Re&gexp Search Backwa rd2 re_search_backward 0 menu_append_item# 134 " $1 5 menu_append_separator# 135 " $1( &Replace+ replace_cmd 0 menu_append_item# 136 " $1/ Regexp Re&place3 query_replace_match 0 menu_append_item# 137 " $1 5 menu_append_separator# 138 " $1- Se&t Bookmark. bkmrk_set_mark 0 menu_append_item# 139 " $1. Got&o Bookmark/ bkmrk_goto_mark 0 menu_append_item# 140 " $1* &Goto Line- goto_line_cmd 0 menu_append_item,*# 142 % popup+# 144 + buffer_list.*# 146 ! b+! b# 147! 0 ! b! " 32A.u/c# 150 % popup ! b}& sw2buf ! b 0 menu_append_item/i# 1426 change_buffer_callback# 154/ Global.&Buffers" $1# 155 " $1' &Toggle 1 menu_append_popup# 156 " $1. &Change Buffer 1 menu_append_popup# 157 " $1/ .&Change Buffer & st rcat}6 change_buffer_callback > menu_set_select_popup_callback# 158 " $1, &Kill Buffer+ kill_buffer 0 menu_append_item# 159 " $1- &List Buffers% bufed 0 menu_append_item# 160 " $1, &Select Mode 1 menu_append_popup# 161 " $1/ Enable &Fold ing, folding_mode 0 menu_append_item# 163< Global.&Buffers.&Select Mode" $1# 164 " $1' &C Mode& c_mode 0 menu_append_item# 165 " $1, &S-Lang Mode* slang_mode 0 menu_append_item# 166 " $1* &Text Mode) text_mode 0 menu_append_item# 167 " $1+ &LaTeX Mode* latex_mode 0 menu_append_item# 168 " $1) Te&X Mode( tex_mode 0 menu_append_item# 169 " $1( &No Mode' no_mode 0 menu_append_item# 170 " $1- &Fortran Mode, fortran_mode 0 menu_append_item# 171 " $1) F&90 Mode( f90_m ode 0 menu_append_item# 172 " $1, &Python Mode+ python_mode 0 menu_append_item# 173 " $1( s&h mode' sh_mode 0 menu_append_item# 1757 Global.&Buffers.&Toggle" $1# 176 " $1- &Line Numbers7 toggle_line_number_mode 0 menu_append_item# 177 " $1* &Overwrite0 toggle_overwrite 0 menu_append_item# 178 " $1* &Read Only/ toggle_readonly 0 menu_append_item# 179 " $1+ &CR/NL mode- toggle_crmode 0 menu_append_item# 181/ Global.W&indows" $1# 182 " $1+ &One Window* one_window 0 m enu_append_item# 183 " $1- &Split Window, split_window 0 menu_append_item# 184 " $1- O&ther Window, other_window 0 menu_append_item# 185 " $1. &Delete Window- delete_window 0 menu_append_item# 188 " $1 5 menu_append_separator(# 189 ' Gu i_Jed+,*# 190 $ file+# 192 ' Gui_Jed $ file9 0 set_color_scheme# 1904 set_gui_color_scheme# 195 " $1. &Color Schemes 1 menu_append_popup# 196/ x_server_vendor * is_defined.# 198% Xjed/' Gui_Jed# 199 " $1/ .&Color Schemes9" $2# 201 1 Color_Scheme_Path! , & strtok.# 203" $3# 205 " $2% &Xjed# 206 " $3$ Xjed & dircat# 207$, \\C^.*\\.sl$# 208}4 set_gui_color_scheme# 205 = add_files_popup_with_callback/# 210 " $2 5 menu_append_separator/c# 213 1 Color_Scheme_Path! , & strtok.# 215" $2# 216 " $1. &Color Schemes# 217 " $2$, \\C^.*\\.sl$# 218}0 set_color_scheme# 216 = add_files_popup_with_callback/# 222 " $1 5 menu_append_separator# 223 " $1' &Redraw& redraw 0 menu_append_item# 225 0 _jed_secure_ mode.# 227. Global.S&ystem" $1# 228 " $1/ &S-Lang Command, evaluate_cmd 0 menu_append_item# 229 " $1. S&hell Command, do_shell_cmd 0 menu_append_item# 230 " $1( &Compile' compile 0 menu_append_item# 233& ashell& ashell ( autoload# 234 " $1- Shell &Window& ashell 0 menu_append_item# 238 " $1' &Ispell& ispell 0 menu_append_item# 239 " $1% &Mail$ mail 0 menu_append_item/b# 245 " $1) C&alendar( calendar 0 menu_append_item# 246 " $1) &Function. emacs_escape_x 0 m enu_append_item,*# 248 & unused+*# 250 ) about_doc+, aboutjed.hlp 2 expand_jedlib_file) about_doc# 252+ *about jed* ' pop2buf# 253! 0 , set_readonly# 254 , erase_buffer# 255$G Jed Version: %s\nS-Lang Version: %s\n\n# 256 3 _jed_version_ string 5 _slang_version_string# 255 ' vinsert# 258 ) about_doc B.# 259 ) about_doc + insert_fileP/.# 2616 aboutjed.hlp not found & insert/d# 263! 0 8 set_buffer_modified_flag# 264 # bob# 265 ) most_mode# 248) about_jed# 268, Global.& Help" $1# 269 " $1* About &Jed}) about_jed $ NULL 0 menu_append_item# 271 " $1, &Browse Docs# 272 ( JED_ROOT' doc/txt & dircat# 273$0 \\C^.*\\.txt\\.?# 274}4 browse_docs_callback# 271 = add_files_popup_with_callback# 276 " $1 5 menu_app end_separator# 277 " $16 &Describe Key Bindings1 describe_bindings 0 menu_append_item# 278 " $1. Describe &Mode- describe_mode 0 menu_append_item# 279 " $12 Describe &Function1 describe_function 0 menu_append_item# 280 " $12 Describe &Va riable1 describe_variable 0 menu_append_item# 281 " $1( &Apropos' apropos 0 menu_append_item# 282 " $1 5 menu_append_separator# 283 " $1) Show &Key' showkey 0 menu_append_item# 284 " $11 &Where Is Command( where_is 0 menu_append_item # 285 " $1 5 menu_append_separator# 286 " $1, &Info Reader+ info_reader 0 menu_append_item# 288 " $1. &Unix Man Page( unix_man 0 menu_append_item,# 293= add_files_popup_with_callback,*# 299 ' menubar+# 3010 load_popup_hooks! 1 ' menub ar . _jed_run_hooks# 299y0 menu_load_popups# 303& Global $ NULL @ menu_set_select_menubar_callback# 305! 12 Menu_Popups_Loaded