.#��" 40* Perl_Flags + Null_String� / custom_variable��" 63+ Perl_Indent! 4� / custom_variable&�" 68 ) tmp_input+- _tmp_jedperl_�) tmp_input&�" 69 , shell_output+. *shell-output*�, shell_output&�" 70 ( help_buf++ *help-perl*�( help_buf,*�" 97 # cmd
+/ perltidy -st -q�# cmd*�" 98 $ line+ ) what_line�$ line*�" 99 $ opts+% -nola�$ opts*�# 101 $ file # dir ' thisbuf % flags+�# 102 + getbuf_info�% flags�' thisbuf�# dir�$ file��# 103 # dir� 2 change_default_dir.��# 104$ cd ' # dir9( ' failed9� % error
/c�# 108% -9999�% -9999� / prefix_argumentB.��# 109/ perltidy flags: + Null_String $ opts� ) read_mini�$ opts/c*�# 117 ' use_tmp+ % markp�' use_tmp�# 118 ' use_tmp.�# 119 - count_narrows�' use_tmp�# 120 ' use_tmp. + mark_buffer/c/b�# 123 ' use_tmp.��# 
124 $ file� & strlen.! 1�' use_tmp/b�# 125 + mark_buffer/b�# 128 & narrow�# 129 ' use_tmp.�# 130 ) tmp_input�$ file�# 131 + mark_buffer��# 132 $ file� 4 write_region_to_fileP�# 135 # bob.�# 137 * skip_white�# 138 $ eolp.u/c��# 140(  -sil=%d� + what_colu
mn! 19 + Perl_Indent<� # int� ' sprintf�# cmdv/.�# 142 & down_1/k/.�# 144 % flags! 1F.��# 145 # dir $ file9� , write_bufferP/c/d��# 148 , shell_output� & sw2buf�# 149 , erase_buffer.��# 154 ' thisbuf� & sw2buf��# 155 , shell_output� & delbuf�# 156 ' us
e_tmp.� $ file� + delete_fileP/c�# 157 % widen��# 158 $ line� ) goto_line�# 159 # bol��# 160 + Null_String� % flush/n��# 164 $ opts� & strlen.���# 165 # cmd $ opts $ file�!  � ' strjoin�# cmd/.���# 167 # cmd $ file�!  � ' strjoin�# cmd/d��# 169 # cmd� %
 flush*�# 170 " rc+� # cmd� - run_shell_cmd�" rc��# 171! 0� 8 set_buffer_modified_flag�# 174 " rc.�6 error running perltidy� % error/c��# 178 ' thisbuf� & sw2buf�# 179 + mark_buffer�# 180 * del_region��# 181 , shell_output� & insbuf�# 182 3 EXECUTE_ERRO
R_BLOCK�" 95y( perltidy,*�# 194 $ opts & prompt+*�# 196 # cmd+' perl -w�# cmd*�# 197 $ args+ + Null_String�$ args*�# 198 $ line+! 0�$ line*�# 200 $ file # dir ' thisbuf % flags+�# 201 + getbuf_info�% flags�' thisbuf�# dir�$ file��# 202 # dir� 2 change_
default_dir.��# 203$ cd ' # dir9( ' failed9� % error/c��# 206 * Perl_Flags� & strlen.!   * Perl_Flags9�$ opts/c�# 209% -9999�% -9999� / prefix_argumentB.��# 210+ Perl flags: + Null_String $ opts� ) read_mini�$ opts/c*�# 218 ' use_tmp+ % markp�' use_
tmp�# 219 ' use_tmp.�# 220 - count_narrows�' use_tmp�# 221 ' use_tmp. + mark_buffer/c/b�# 224 ' use_tmp.��# 225 & prompt� & strlen.��# 226 & prompt + Null_String + Null_String� ) read_mini�$ args/c��# 228 $ file� & strlen.�# 229! 1�' use_tmp�# 230 + mark
_buffer/b/b�# 234 ' use_tmp.�# 235 ) tmp_input�$ file��# 236! 1� , check_region�# 237 7 exchange_point_and_mark�# 238 ) what_line�$ line��# 242$- use strict;\n $ file� 4 write_string_to_fileP��# 243 $ file� 5 append_region_to_fileP�# 244 ( pop_spot/.�# 2
46 % flags! 1F.��# 247 # dir $ file9� , write_bufferP/c/d*�# 250 & oldbuf+� , shell_output� / pop2buf_whatbuf�& oldbuf�# 251 , erase_buffer.�# 255 ' use_tmp.� $ file� + delete_fileP/c/n�# 259%  2>&1�$ args*�# 262 " rc+��� # cmd $ opts $ file $ args�!  
� ' strjoin� - run_shell_cmd�" rc��# 263! 0� 8 set_buffer_modified_flag�# 266 " rc.�2 error running perl� % flush/c�# 268 3 EXECUTE_ERROR_BLOCK�# 277 # eob�# 280 $ bobp.��# 281 ' thisbuf� ' pop2buf�# 282 ) onewindow��# 283* No output.� ' message/.���# 
285$  at  $ file9&  line 9� ' bsearch� % right.�# 287 * skip_white�# 288 ) push_mark��# 289# 0-9� * skip_chars��# 290 ) bufsubstr� ' integer�$ line��# 292 ' thisbuf� ' pop2buf��# 293 $ line� ) goto_line�# 294 # bol/c/d�# 194�' do_perl,��# 309 + Null_S
tring+ perl @ARGV:� ' do_perl�# 308y) perl_exec,��# 321# -cT + Null_String� ' do_perl�# 320y* perl_check,*�# 329 $ name+��# 331 $ name� ( keymap_p.��# 332 $ name� + make_keymap��# 333) perl_help! ? $ name� ) definekey��# 334) perl_help$" \r $ name�
 ) definekey��# 335) perl_help# ^C? $ name� ) definekey��# 336) perl_info# ^Ci $ name� ) definekey/b��# 339 $ name� ' bufferp.*�# 340 $ cbuf+ ' whatbuf�$ cbuf��# 341 $ name� & setbuf��# 342 $ name� * use_keymap��# 343 $ cbuf� & setbuf/c�# 329�- attach
_keymap,*�# 350 # cmd+*�# 352 $ cbuf+� ( help_buf� / pop2buf_whatbuf�$ cbuf�# 353 , erase_buffer��# 354 ( help_buf� - attach_keymap��# 356 # cmd� % flush��# 358 # cmd,  2>/dev/null9� - run_shell_cmdP�# 363 # bob��# 364! 0� 8 set_buffer_modified_flag��#
 365 $ cbuf� ' pop2buf��# 366 + Null_String� % flush�# 350�- perl_get_help,*�# 369 $ what+�# 372 $ what $ NULLA.� $ what� & strlenN/7.$ perl�$ what/c��# 373+ perldoc -t  $ what9� - perl_get_help�# 369�- help_for_perl,*�# 383 % chars+�# 385 % markp..��
# 388! ^ % chars9� * skip_chars�# 389 $ eolp.v/b/.��# 390! 1� $ down/k��# 391 % chars� + bskip_chars�# 392 ) push_mark� % chars� * skip_chars/b�# 394 ) bufsubstrw�# 383�, extract_word,��# 404' perl -V� - perl_get_helpy) perl_info,*�# 416 $ what+�+ 
:0-9A-Z_a-z� , extract_word�$ what��# 417 $ what� & strlen.��# 4187 Sorry no word extracted� % flushw/b��# 424 $ what$ perl! 4� ' strncmp.��# 425 $ what0 ^[a-z][a-z0-9]+$! 1� , string_match.��# 426# -f  $ what� & strcat�$ what/c/c��# 429 $ what� - h
elp_for_perl�# 414y) perl_help,�# 451 1 MINIBUFFER_ACTIVE.���# 452( perldoc: + Null_String + Null_String� ) read_mini� - help_for_perl/b�# 449y' perldoc��# 455( perlxtra� ' provide