new feature: comment/uncomment current line or selected lines

This allows for commenting or uncommenting a line or a bunch of lines
with a single keystroke (default binding: M-3).  The characters used
for commenting/uncommenting are specified by the active syntax file.
Reviewed-by: Benno Schulenberg <bensberg@justemail.net>
Signed-off-by: Mike Scalora <mike@scalora.org>

doc/syntax/lua.nanorc

@@ -5,6 +5,7 @@
 ## Version: 2011-05-05
 
 syntax "lua" "\.lua$"
+comment "--"
 
 color brightwhite "\[\[.*\]\]"
 

doc/syntax/makefile.nanorc

 ## Here is an example for Makefiles.
 
 syntax "makefile" "Makefile[^/]*$" "\.(make|mk)$"
+comment "#"
 
 color red "[:=]"
 color magenta "\<(if|ifeq|else|endif)\>"

doc/syntax/man.nanorc

@@ -2,6 +2,7 @@
 
 syntax "man" "\.[1-9]x?$"
 magic "troff or preprocessor input text"
+comment ".\""
 
 color green "\.(SH|SS|TH) .*$"
 color brightgreen "\.(SH|SS|TH) " "\.([HIT]P)"

doc/syntax/mgp.nanorc

@@ -2,6 +2,7 @@
 
 syntax "mgp" "\.mgp$"
 header "^%include.*"
+comment "#"
 
 icolor green "^%[a-z].*$"
 color cyan "(^|[[:space:]])#.*$"

doc/syntax/nanorc.nanorc

 ## Here is an example for nanorc files.
 
 syntax "nanorc" "\.?nanorc$"
+comment "#"
 
 # Possible errors and parameters
-icolor brightred "^[[:space:]]*((un)?(bind|set)|include|syntax|header|magic|linter|i?color|extendsyntax).*$"
+icolor brightred "^[[:space:]]*((un)?(bind|set)|include|syntax|header|comment|magic|linter|i?color|extendsyntax).*$"
 
 # Keywords
 icolor brightgreen "^[[:space:]]*(set|unset)[[:space:]]+(allow_insecure_backup|autoindent|backup|backwards|boldtext|casesensitive|const(antshow)?|cut|fill|historylog|justifytrim|locking|morespace|mouse|multibuffer|noconvert|nohelp|nonewlines|nowrap|pos(ition)?log|preserve|quickblank|quiet|rebinddelete|rebindkeypad|regexp|smarthome|smooth|softwrap|suspend|tabsize|tabstospaces|tempfile|unix|view|wordbounds)\>"
@@ -11,8 +12,8 @@ icolor yellow "^[[:space:]]*set[[:space:]]+(functioncolor|keycolor|statuscolor|t
 icolor brightgreen "^[[:space:]]*set[[:space:]]+(backupdir|brackets|functioncolor|keycolor|matchbrackets|operatingdir|punct|quotestr|speller|statuscolor|titlecolor|whitespace)[[:space:]]+"
 icolor brightgreen "^[[:space:]]*bind[[:space:]]+((\^|M-)([[:alpha:]]|space|[]]|[0-9^_=+{}|;:'\",./<>\?-])|F([1-9]|1[0-6])|Ins|Del)[[:space:]]+[[:alpha:]]+[[:space:]]+(all|main|search|replace(2|with)?|gotoline|writeout|insert|ext(ernal)?cmd|help|spell|linter|browser|whereisfile|gotodir)([[:space:]]+#|[[:space:]]*$)"
 icolor brightgreen "^[[:space:]]*unbind[[:space:]]+((\^|M-)([[:alpha:]]|space|[]]|[0-9^_=+{}|;:'\",./<>\?-])|F([1-9]|1[0-6])|Ins|Del)[[:space:]]+(all|main|search|replace(2|with)?|gotoline|writeout|insert|ext(ernal)?cmd|help|spell|linter|browser|whereisfile|gotodir)([[:space:]]+#|[[:space:]]*$)"
-icolor brightgreen "^[[:space:]]*extendsyntax[[:space:]]+[[:alpha:]]+[[:space:]]+(i?color|header|magic|linter|formatter)[[:space:]]+.*$"
-icolor green "^[[:space:]]*((un)?(bind|set)|include|syntax|header|magic|linter|formatter|extendsyntax)\>"
+icolor brightgreen "^[[:space:]]*extendsyntax[[:space:]]+[[:alpha:]]+[[:space:]]+(i?color|header|magic|comment|linter|formatter)[[:space:]]+.*$"
+icolor green "^[[:space:]]*((un)?(bind|set)|include|syntax|header|magic|comment|linter|formatter|extendsyntax)\>"
 
 # Colors
 icolor yellow "^[[:space:]]*i?color[[:space:]]*(bright)?(white|black|red|blue|green|yellow|magenta|cyan)?(,(white|black|red|blue|green|yellow|magenta|cyan))?\>"

doc/syntax/nftables.nanorc

@@ -2,6 +2,7 @@
 
 syntax "nftables" "\.(nft|nftables)$"
 header "^#!.*(nft|nftables)"
+comment "#"
 
 # Objects and operations
 color green "\<(chain|hook|policy|priority|ruleset|set|table|type|v?map)\>"

doc/syntax/objc.nanorc

 ## Here is an example for C/C++/Obj-C.
 
 syntax "m" "\.m$"
+comment "//"
 
 # Stuffs,
 color brightwhite "\<[A-Z_][0-9A-Z_]+\>"

doc/syntax/ocaml.nanorc

 ## Syntax highlighting for OCaml.
 
 syntax "ocaml" "\.mli?$"
+comment "(*|*)"
 
 # Uid:
 color red "\<[A-Z][0-9a-z_]{2,}\>"

doc/syntax/patch.nanorc

@@ -2,6 +2,8 @@
 
 syntax "patch" "\.(patch|diff|debdiff)$"
 magic "diff output text"
+# There is no official support for comments in patch files.
+comment ""
 
 # Added lines.
 color brightgreen "^\+.*"

doc/syntax/perl.nanorc

@@ -3,6 +3,7 @@
 syntax "perl" "\.p[lm]$"
 header "^#!.*perl[-0-9._]*"
 magic "Perl script text"
+comment "#"
 
 color red "\<(accept|alarm|atan2|bin(d|mode)|c(aller|h(dir|mod|op|own|root)|lose(dir)?|onnect|os|rypt)|d(bm(close|open)|efined|elete|ie|o|ump)|e(ach|of|val|x(ec|ists|it|p))|f(cntl|ileno|lock|ork))\>" "\<(get(c|login|peername|pgrp|ppid|priority|pwnam|(host|net|proto|serv)byname|pwuid|grgid|(host|net)byaddr|protobynumber|servbyport)|([gs]et|end)(pw|gr|host|net|proto|serv)ent|getsock(name|opt)|gmtime|goto|grep|hex|index|int|ioctl|join)\>" "\<(keys|kill|last|length|link|listen|local(time)?|log|lstat|m|mkdir|msg(ctl|get|snd|rcv)|next|oct|open(dir)?|ord|pack|pipe|pop|printf?|push|q|qq|qx|rand|re(ad(dir|link)?|cv|do|name|quire|set|turn|verse|winddir)|rindex|rmdir|s|scalar|seek(dir)?)\>" "\<(se(lect|mctl|mget|mop|nd|tpgrp|tpriority|tsockopt)|shift|shm(ctl|get|read|write)|shutdown|sin|sleep|socket(pair)?|sort|spli(ce|t)|sprintf|sqrt|srand|stat|study|substr|symlink|sys(call|read|tem|write)|tell(dir)?|time|tr(y)?|truncate|umask)\>" "\<(un(def|link|pack|shift)|utime|values|vec|wait(pid)?|wantarray|warn|write)\>"
 color magenta "\<(continue|else|elsif|do|for|foreach|if|unless|until|while|eq|ne|lt|gt|le|ge|cmp|x|my|sub|use|package|can|isa)\>"

doc/syntax/php.nanorc

@@ -2,6 +2,7 @@
 
 syntax "php" "\.php[2345s~]?$"
 magic "PHP script text"
+comment "//"
 
 # PHP markings.
 color brightgreen "(<\?(php)?|\?>)"

doc/syntax/po.nanorc

 ## Colouring for PO files.
 
 syntax "po" "\.pot?$"
+comment "#"
 
 # Comments.
 color green "^#.*$"

doc/syntax/postgresql.nanorc

@@ -2,6 +2,7 @@
 
 syntax "sql" "\.sql[2345s~]?$"
 magic "PostgreSQL script text"
+comment "-- "
 
 # Functions.
 color white "\<[a-z_]*\("

doc/syntax/pov.nanorc

 ## Here is an example for POV-Ray.
 
 syntax "pov" "\.(pov|POV|povray|POVRAY)$"
+comment "//"
 
 color brightcyan "^[[:space:]]*#[[:space:]]*(declare)"
 color brightyellow "\<(sphere|cylinder|translate|matrix|rotate|scale)\>"

doc/syntax/python.nanorc

@@ -3,6 +3,7 @@
 syntax "python" "\.py$"
 header "^#!.*python[-0-9._]*"
 linter pyflakes
+comment "#"
 
 # Function definitions.
 icolor brightblue "def [0-9A-Z_]+"

doc/syntax/ruby.nanorc

@@ -3,6 +3,7 @@
 syntax "ruby" "\.rb$"
 header "^#!.*ruby[-0-9._]*"
 linter ruby -w -c
+comment "#"
 
 # Reserved words.
 color yellow "\<(BEGIN|END|alias|and|begin|break|case|class|def|defined\?|do|else|elsif|end|ensure|false|for|if|in|module)\>"

doc/syntax/sh.nanorc

@@ -4,6 +4,7 @@ syntax "sh" "\.sh$"
 header "^#!.*((ba|da|k|pdk)?sh[-0-9_]*|openrc-run|runscript)"
 magic "(POSIX|Bourne.*) shell script text"
 linter dash -n
+comment "#"
 
 icolor brightgreen "^[0-9A-Z_]+\(\)"
 color green "\<(break|case|continue|do|done|elif|else|esac|exit|fi|for|function|if|in|read|return|select|shift|then|time|until|while)\>"

doc/syntax/spec.nanorc

 ## Syntax highlighting for RPM spec files.
 
 syntax "spec" "\.(spec$|spec\.*)"
+comment "#"
 
 # Main tags.
 color brightblue "((Icon|ExclusiveOs|ExcludeOs)[[:space:]]*:)"

doc/syntax/tcl.nanorc

 ## Syntax highlighting for Tcl files.
 
 syntax "tcl" "\.tcl$"
+comment "#"
 
 # Standard Tcl [info commands]:
 color green "\<(after|append|array|auto_execok|auto_import|auto_load|auto_load_index|auto_qualify|binary|break|case|catch|cd|clock|close|concat|continue|encoding|eof|error|eval|exec|exit|expr|fblocked|fconfigure|fcopy|file|fileevent|flush|for|foreach|format|gets|glob|global|history|if|incr|info|interp|join|lappend|lindex|linsert|list|llength|load|lrange|lreplace|lsearch|lset|lsort|namespace|open|package|pid|puts|pwd|read|regexp|regsub|rename|return|scan|seek|set|socket|source|split|string|subst|switch|tclLog|tell|time|trace|unknown|unset|update|uplevel|upvar|variable|vwait|while)\>"

doc/syntax/tex.nanorc

@@ -2,6 +2,7 @@
 
 syntax "tex" "\.tex$"
 linter chktex -v0 -q -I
+comment "%"
 
 icolor green "\\.|\\[A-Z]*"
 color magenta "[{}]"