Patch by Sergei Golovan fixes errors in manual pages (several words started
with a dot are treated as undefined macros). Also, -full is treated as an argument.

--- a/modules/chatwidget/chatwidget.man
+++ b/modules/chatwidget/chatwidget.man
@@ -63,7 +63,7 @@
 Control the names and tags associated with names.
 [list_begin commands]
 [cmd_def "list [opt [arg -full]]"]
-Returns a list of all the user names from the names view. If [opt \
+Returns a list of all the user names from the names view. If [arg \
 -full] is given then the list returned is a list of lists where each
 sublist is made up of the nick followed by any options that have been
 set on this nick entry. This may be used to examine any application
@@ -104,17 +104,17 @@
 [section EXAMPLE]
 
 [example {
-chatwidget::chatwidget .chat
-proc speak {w msg} {$w message $msg -nick user}
-.chat hook add post [list speak .chat]
-pack .chat -side top -fill both -expand 1
-.chat topic show
-.chat topic set "Chat widget demo"
-.chat name add "admin" -group admin
-.chat name add "user" -group users -color tomato
-.chat message "Chatwidget ready" -type system
-.chat message "Hello, user" -nick admin
-.chat message "Hello, admin" -nick user
+ chatwidget::chatwidget .chat
+ proc speak {w msg} {$w message $msg -nick user}
+ .chat hook add post [list speak .chat]
+ pack .chat -side top -fill both -expand 1
+ .chat topic show
+ .chat topic set "Chat widget demo"
+ .chat name add "admin" -group admin
+ .chat name add "user" -group users -color tomato
+ .chat message "Chatwidget ready" -type system
+ .chat message "Hello, user" -nick admin
+ .chat message "Hello, admin" -nick user
 }]
 
 [para]
--- a/modules/history/tklib_history.man
+++ b/modules/history/tklib_history.man
@@ -46,7 +46,7 @@
 
 This command queries or sets configuration options. Currently the options recognized
 are [arg length] and [arg alert]. Setting the length determines the number of history entries to keep for
-the named Entry. Alert specifies the command to run when the user reaches the end of the history, it defaults to [call bell]. Although configure requires a [arg pathName] argument, the setting for alert is global and the path is ignored.
+the named Entry. Alert specifies the command to run when the user reaches the end of the history, it defaults to [cmd bell]. Although configure requires a [arg pathName] argument, the setting for alert is global and the path is ignored.
 
 [list_end]
 
--- a/modules/ntext/ntextIndent.man
+++ b/modules/ntext/ntextIndent.man
@@ -183,7 +183,7 @@
 
 [example {
 set foo [.t index end]
-.t insert end {This line was added by the script, not the keyboard!}
+ .t insert end {This line was added by the script, not the keyboard!}
 ::ntext::wrapIndent .t $foo end
 }]
 
@@ -197,7 +197,7 @@
 To switch to [arg -wrap] [arg char] mode:
 
 [example {
-.t configure -wrap char
+ .t configure -wrap char
 ::ntext::wrapIndent .t
 }]
 
--- a/modules/tooltip/tooltip.man
+++ b/modules/tooltip/tooltip.man
@@ -123,54 +123,54 @@
 [section EXAMPLE]
 
 [example {
-# Demonstrate widget tooltip
-package require tooltip
-pack [label .l -text "label"]
-tooltip::tooltip .l "This is a label widget"
+ # Demonstrate widget tooltip
+ package require tooltip
+ pack [label .l -text "label"]
+ tooltip::tooltip .l "This is a label widget"
 }]
 
 [example {
-# Demonstrate menu tooltip
-package require tooltip
-. configure -menu [menu .menu]
-.menu add cascade -label Test -menu [menu .menu.test -tearoff 0]
-.menu.test add command -label Tooltip
-tooltip::tooltip .menu.test -index 0 "This is a menu tooltip"
+ # Demonstrate menu tooltip
+ package require tooltip
+ . configure -menu [menu .menu]
+ .menu add cascade -label Test -menu [menu .menu.test -tearoff 0]
+ .menu.test add command -label Tooltip
+ tooltip::tooltip .menu.test -index 0 "This is a menu tooltip"
 }]
 
 [example {
-# Demonstrate canvas item tooltip
-package require tooltip
-pack [canvas .c]
-set item [.c create rectangle 10 10 80 80 -fill red]
-tooltip::tooltip .c -item $item "Canvas item tooltip"
+ # Demonstrate canvas item tooltip
+ package require tooltip
+ pack [canvas .c]
+ set item [.c create rectangle 10 10 80 80 -fill red]
+ tooltip::tooltip .c -item $item "Canvas item tooltip"
 }]
 
 [example {
-# Demonstrate listbox item tooltip
-package require tooltip
-pack [listbox .lb]
-.lb insert 0 "item one"
-tooltip::tooltip .lb -item 0 "Listbox item tooltip"
+ # Demonstrate listbox item tooltip
+ package require tooltip
+ pack [listbox .lb]
+ .lb insert 0 "item one"
+ tooltip::tooltip .lb -item 0 "Listbox item tooltip"
 }]
 
 [example {
-# Demonstrate ttk::notebook tab tooltip
-package require tooltip
-pack [ttk::notebook .nb]
-.nb add [frame .nb.f1 -height 50] -text "First tab"
-.nb add [frame .nb.f2 -height 50] -text "Second tab"
-tooltip::tooltip .nb -tab 0 "Tooltip for the 1st notebook tab"
-tooltip::tooltip .nb -tab 1 "Tooltip for the 2nd notebook tab"
+ # Demonstrate ttk::notebook tab tooltip
+ package require tooltip
+ pack [ttk::notebook .nb]
+ .nb add [frame .nb.f1 -height 50] -text "First tab"
+ .nb add [frame .nb.f2 -height 50] -text "Second tab"
+ tooltip::tooltip .nb -tab 0 "Tooltip for the 1st notebook tab"
+ tooltip::tooltip .nb -tab 1 "Tooltip for the 2nd notebook tab"
 }]
 
 [example {
-# Demonstrate text tag tooltip
-package require tooltip
-pack [text .txt]
-.txt tag configure TIP-1 -underline 1
-tooltip::tooltip .txt -tag TIP-1 "tooltip one text"
-.txt insert end "An example of a " {} "tooltip" TIP-1 " tag.\n" {}
+ # Demonstrate text tag tooltip
+ package require tooltip
+ pack [text .txt]
+ .txt tag configure TIP-1 -underline 1
+ tooltip::tooltip .txt -tag TIP-1 "tooltip one text"
+ .txt insert end "An example of a " {} "tooltip" TIP-1 " tag.\n" {}
 }]
 [vset CATEGORY tooltip]
 [include ../../support/devel/doc/feedback.inc]
--- a/modules/diagrams/include/elementq.inc
+++ b/modules/diagrams/include/elementq.inc
@@ -22,7 +22,8 @@
 [[[$elem $corner1] $corner2] ...]
 }]
 
-assuming that the value for [example { [$elem $corner1] }], etc. is
+assuming that the value for [example { [$elem $corner1] }]
+etc. is
 again an element.
 
 [call [arg element] [opt "[arg corner1]... [opt "[method names] [opt [arg pattern]]"]]"]]
@@ -33,5 +34,6 @@
 [[[$elem $corner1] ...] names ?pattern?]
 }]
 
-assuming that the value for [example { [$elem $corner1] }], etc. is
+assuming that the value for [example { [$elem $corner1] }]
+etc. is
 again an element.
--- a/modules/menubar/menubar.man
+++ b/modules/menubar/menubar.man
@@ -543,9 +543,9 @@
 modifier characters are supported as show in the table below.
 
 [example_begin]
-''  ::= global scope (no character)
-'@' ::= local scope modifier
-'=' ::= notebook tab scope modifier
+ ''  ::= global scope (no character)
+ '@' ::= local scope modifier
+ '=' ::= notebook tab scope modifier
 [example_end]
 
 [para]
--- a/modules/widgetl/widget_listentry.man
+++ b/modules/widgetl/widget_listentry.man
@@ -208,7 +208,8 @@
 
 [para] The use case for this callback is essentially
 [term {input normalization}]. The most simple case of such would be, for
-example the use of [example {string tolower}] to impose a standard letter
+example the use of [example {string tolower}]
+to impose a standard letter
 case on the data. More complex example can be thought of, like rewriting
 of multiple syntaxes of input to a canonical form.