Edit file File name : comments.slc Content :.#��! 6 2 JED_COMMENT_COLUMN" 40� / custom_variable(�! 8 , Comment_Data+� + Struct_Type * Assoc_Type!�, Comment_Data,*�" 10 $ mode+��" 13 $ mode! 0" 32� / extract_elementw�" 10�2 extract_major_mode,�" 40 & _NARGS.�" 41 - get_mode_name/b*�" 43 ( moden ame+�( modename��" 45 ( modename� 2 extract_major_mode�( modename�" 47! 2.��" 49 , Comment_Data ( modename� 0 assoc_key_exists.��" 50 ( modename , Comment_Data!w/c��" 52 ( modename� & strlow�( modename/i�" 54 $ NULLw�" 38�0 get_comment_info,*�" 78 $ cbe g $ cend % flags+�" 80 & _NARGS! 3A.�" 81 - get_mode_name/c*�" 82 $ mode+�$ mode*�" 84 ! s+�" 86 $ cbeg $ cend % flags & column! 4�" 84�! s�" 88 $ cbeg ! s�$ cbeg�" 89 $ cend ! s�$ cend�" 90 % flags ! s�% flags�" 91 2 JED_COMMENT_COLUMN ! s�& column�" 93 ! s� $ mode , Comment_Data��" 78�0 set_comment_info,*�" 96 & column+�" 98 & _NARGS! 1A.�" 99 - get_mode_name/c*�# 100 $ mode+�$ mode*�# 101 ! s+� $ mode� 0 get_comment_info�! s�# 102 ! s $ NULLB.�# 103 & column ! s�& column/c�" 96�2 set_comment_colu mn,*�# 108 ! m+ - get_mode_name�! m��# 109 ! m� 2 extract_major_mode�! m*�# 110 ! s+� ! m� 0 get_comment_info�! s�# 111 ! s $ NULLA.��# 112 F No comment strings defined for %s mode ! m� & verror/c�# 113 ! sw�# 106�1 _get_comment_info,*�# 116 ( beg_mark ( end_mark+*�# 118 * max_column+��# 120 ( end_mark� . goto_user_mark�# 121 + what_column�* max_column��# 122 ( beg_mark� . goto_user_mark.�# 126 # eol�# 127 0 create_user_mark ( end_mark@.v/c�# 129 + bskip_white�# 130 + what_column * max_column?.�# 131 + what_column�* max_column/c�# 132 ) go_down_1/e�# 134 * max_columnw�# 116�2 compute_max_column,��# 140! 1� , check_region.�# 144 ( pop_spot�# 145 * pop_mark_0/n*�# 148 $ info+ 1 _get_comment_info�$ info*�# 149 $ cbeg+ $ info"$ cbeg�$ cbeg*�# 150 $ cend+ $ info"$ cend�$ cend*�# 151 % flags+ $ info"% flags�% flags*�# 153 ( end_mark+ 0 create_user_mark�( end_mark�# 154 7 exchange_point_and_mark*�# 155 ( beg_mark+ 0 create_user_mark�( beg_mark*�# 156 * indent_col+! 1�* indent_col�# 158 ( beg_mark ( end_mar kA.�# 160 ( pop_spot�# 161 * pop_mark_0��# 162 $ cbeg� & insert��# 163 $ cend� & insertw/c�# 167 % flags! 1F.�# 169 + what_column�* indent_col�# 170 + bskip_white�# 171 $ bolp.�# 172! 1�* indent_col/b/.��# 176$$ \n � * skip_chars�# 177 + bskip_white�# 178 $ bolp.�# 180 * skip_white�# 181 0 create_user_mark ( end_mark=.�# 183 + what_column�* indent_col��# 184 ( beg_mark� . move_user_mark/c/c/d��# 189 ( end_mark� . goto_user_mark��# 190$$ \n � + bskip_chars*�# 192 - ok_to_pad_end+! 0�- ok_to_pad_end�# 193 0 create_user_mark ( beg_mark?.��# 195 ( end_mark� . move_user_mark�# 196 * pop_mark_0�# 197 ) push_mark�# 198 * skip_white�# 199 $ eolp�- ok_to_pad_end/c*�# 202 * max_column+! 0�* max_column�# 203 % flags! 2F� $ cend� & strlenC.��# 204 ( beg_mark ( end_mark� 2 compute_max_column� $ cbeg� & strlen9�* max_column/c��# 207 ( beg_mark� . goto_user_mark��# 208 $ cbeg� & insert�# 209 # bol�# 210 0 narrow_to_region.�# 214 , widen_region�# 215 ( pop_spot/n�# 217 # eol�# 219 * max_column.�# 221 $ trim�# 222 + what_column * max_column=.��# 223 * max_column� + goto_column/c/c��# 225 $ cend� & insert*�# 227 3 comment_blank_lines+ % flags! 4F�3 comment_blank_lines.�# 231 3 comment_blank_lines.�# 233 & down_1.v/b�# 235 * skip_white�# 236 $ eolp.��# 237 * indent_ col� + goto_column/c/.��# 241$$ \n � * skip_chars�# 242 $ eobp.v/c/d�# 246 + what_column * indent_col@.��# 247 * indent_col� + goto_column/c��# 249 $ cbeg� & insert�# 250 # eol�# 251 * max_column.�# 253 0 create_user_mark ( end_mark=�# 254 - ok_to_pad_en dD.�# 256 $ trim�# 257 + what_column * max_column=.��# 258 * max_column� + goto_column/c/c/c��# 261 $ cend� & insert/e�# 263 , widen_region�# 264 ( pop_spot�# 138�. comment_region,��# 269! 1� , check_region*�# 270 ( end_mark+ 0 create_user_mark�( end_m ark�# 271 7 exchange_point_and_mark�# 272 0 narrow_to_region.�# 276 , widen_region�# 277 ( pop_spot/n*�# 280 $ info+ 1 _get_comment_info�$ info*�# 281 $ cbeg+ $ info"$ cbeg�$ cbeg*�# 282 $ cend+ $ info"$ cend�$ cend*�# 283 ' do_trim+ $ info"% flags! 2F�' do_trim*�# 285 ( len_cbeg+� $ cbeg� & strlen�( len_cbeg*�# 286 ( len_cend+� $ cend� & strlen�( len_cend.��# 290 $ cbeg� % ffind.u/b��# 293 ( len_cbeg� $ deln�# 294 # eol��# 295 $ cend� % bfind.u/b��# 298 ( len_cend� $ deln�# 299 ' do_trim.�# 301 * skip_w hite�# 302 $ eolp.�# 303 $ trim/c/c/.�# 306 & down_1/k�# 307 , widen_region�# 308 ( pop_spot�# 267�0 uncomment_region,.�# 313 ( pop_spot/n�# 314 - push_spot_bol�# 315 - push_mark_eol�# 316 . comment_region�# 317 ( pop_spot�# 311�, comment_line,.�# 322 ( pop_spot/n�# 323 - push_spot_bol�# 324 - push_mark_eol�# 325 0 uncomment_region�# 326 ( pop_spot�# 320�. uncomment_line,�# 331" -1�" -1� / prefix_argumentB.�# 333 8 uncomment_region_or_linew/c�# 337 % markp.�# 338 . comment_regionw/c*�# 340 ! s+ 1 _g et_comment_info�! s�# 341 ) push_spot�# 342 . bol_skip_white��# 343 ! s"$ cbeg� * looking_at.�# 345 ( pop_spot�# 346 . uncomment_linew/c�# 348 ( pop_spot�# 349 , comment_line�# 329�6 comment_region_or_line,�# 354 % markp.�# 355 0 uncomment_region/.�# 357 . uncomment_line/d�# 352�8 uncomment_region_or_line��# 362 $ html % <!-- $ -->! 0� 0 set_comment_info��# 363 $ sgml % <!-- $ -->! 0� 0 set_comment_info��# 364 ' docbook % <!-- $ -->! 0� 0 set_comment_info��# 365 ! C # /* # */! 0� 0 set_commen t_info��# 366 % SLang " % ! 0� 0 set_comment_info��# 367 # TeX " % ! 0� 0 set_comment_info��# 368 % LaTeX " % ! 0� 0 set_comment_info��# 369 " SH " # ! 0� 0 set_comment_info��# 370 & matlab " # ! 0� 0 set_comment_info��# 371 $ perl " # ! 0� 0 set_comment_info��# 372 ' Fortran " C ! 0� 0 set_comment_info��# 373 $ TPas " { " }! 0� 0 set_comment_info��# 374 # PHP # // ! 0� 0 set_comment_info��# 375 $ java # /* # */! 0� 0 set_comment_info��# 376 " tm # #% ! 0� 0 set_c omment_info��# 377 & python " # ! 0� 0 set_comment_info��# 378 # idl " ; ! 0� 0 set_comment_info��# 380 ( comments� ' provide Save