.#ýü" 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