| Basic mode
#IfModeN Basic
 CLEFT
 #IfText " "
  SEARCHFORWARD "\[^ ]"
  LEFT
  SEARCHBACK "\[ ]"
 #EndIf
 #IfText ""
  UNIVERSALARG "4"
  DELETENEXT
 #Endif
 CRIGHT
 DOWN
 CLEFT
#EndIf
| Asm mode
#IfModeN Asm
 CLEFT
 #IfText "; "
  RIGHT
  RIGHT
  DELETE
  DELETE
 #EndIf
 CRIGHT
 DOWN
 CLEFT
#EndIf
| Pascal mode
#IfModeN Pascal
 MJE_UNCOMMENTLINE
#EndIf
| HoTMeaL
#IfModeN HoTMeaL
 CLEFT
 #IfText "<!-- "
  UNIVERSALARG "5"
  DELETENEXT
  CRIGHT
  UNIVERSALARG "4"
  DELETE
  DOWN
  CLEFT
 #EndIf
#Endif
| C and C++
#IfModeN C++,C
 CLEFT
 SEARCHFORWARD "\[^ \x09]"
 LEFT
 #IfText "/*"
  DELETENEXT
  DELETENEXT
  DELETENEXT
  SEARCHFORWARD "\(/`-`*\|\x0a\)"
  LEFT:LEFT:LEFT
  #IfText "/-*"
   RIGHT
   DELETENEXT
  #EndIf
  CRIGHT
  LEFT
  LEFT
  LEFT
  #IfText "-*/"
   DELETENEXT
  #Else
   CRIGHT
   DELETE
   DELETE
   DELETE
  #EndIf
 #EndIf
 DOWN
 CLEFT
#EndIf
| Obey mode
#IfModeN Obey,ForZap
 CLEFT
 #IfText "|| "
  DELETENEXT
  DELETENEXT
 #EndIf
 CRIGHT
 DOWN
 CLEFT
#EndIf
| Email mode (Remove a quote level)
#IfModeN Email
 CLEFT
 SELREGION
 CRIGHT
 EMAIL_DECQUOTING
 DOWN
 CLEFT
#EndIf
| Perl mode
#IfModeN Perl
 CLEFT
 SEARCHFORWARD "\[^ \x09]"
 LEFT
 #IfText "# "
  DELETENEXT
  DELETENEXT
 #EndIf
 CRIGHT
 DOWN
 CLEFT
#EndIf
