--- m.tmac	2011-09-14 22:29:46.375000000 +0400
+++ m.tmac.new	2011-09-14 22:36:19.656250000 +0400
@@ -100,8 +100,10 @@
 .nr Hu 2
 .\"	hyphenation in body
 .\"	0 -> no hyphenation
-.\"	1 -> hyphenation 14 on
-.nr Hy 0
+.\"	1 -> hyphenation \n[Hm] is on
+.if !r Hy .nr Hy 0
+.\" Default hyphenation mode
+.if !r Hm .nr Hm 14
 .\"	text for toc, selfexplanatory. Look in the new variable section
 .ds Lf LIST OF FIGURES
 .nr Lf 1
@@ -374,7 +376,7 @@
 .de address@hidden
 .ie address@hidden 'ad
 .el 'na
-.ie \\n[Hy] 'hy 14
+.ie \\n[Hy] 'hy \\n[Hm]
 .el 'nh
 'in 0
 'ti 0
@@ -1234,7 +1236,7 @@
 .if !'\*[.T]'html' \{\
 .if \\n[D]>1 .tm Page# \\n[%] (\\n[.F]:\\n[c.])
 .\" check if Hy has been changed
-.ie \\n[Hy] 'hy 14
+.ie \\n[Hy] 'hy \\n[Hm]
 .el 'nh
 .if \\n[Idxf] \{\
 .tl '<pagenr\ \\n[%]>'''
@@ -1601,7 +1603,7 @@
 .fam \\*[pg*mul-fam]
 .ft \\n[pg*mul-font]
 .fi
-.hy 14
+.hy \\n[Hm]
 .di pg*mul-div
 .MULN
 ..
@@ -1662,7 +1664,7 @@
 'fi
 .ie \\n[ft*adjust] 'ad
 .el 'na
-.ie \\n[ft*hyphen] 'hy 14
+.ie \\n[ft*hyphen] 'hy \\n[Hm]
 .el 'hy 0
 .ll address@hidden
 .lt address@hidden