-- Copyright by Mateusz Rusin 2000, 2001
-- Mateusz.Rusin@interia.pl
-- Wersja 1.5

niedzielpo = "a", "i", "o", "u", "w", "z", "nr", "s.", "rys.", "prof.", "mgr", "in¿.", "tj.", "np.", "tzn."
niedzielprzed = "r.", "zl", "gr","m", "mm", "cm", "km", "g", "mg", "kg", "kW", "Hz", "kHz"

GetPMState >> PMState
if PMState = 2
	EditStory
endif
if PMState = 3
	EditStory
endif
if PMState = 4
	EditStory
endif

loop x = 1, len(niedzielpo)
	TextCursor -story
	try Find " " + niedzielpo(x) + " ", currentstory, stopatend, anycase, allinstances, clear
	GetLastError >> error
	while error = 0
		TextCursor +char
		TextSelect -char, 2
		GetNoBreak >> GettedBreak
		if not (GettedBreak = 1)
			NoBreak on
		endif
		try FindNext
		GetLastError >> error
	endwhile
endloop

loop x = 1, len(niedzielprzed)
	TextCursor -story
	try Find " " + niedzielprzed(x) + " ", currentstory, stopatend, matchcase, allinstances, clear
	GetLastError >> error
	while error = 0
		TextCursor -char
		TextSelect +char, 2
		GetNoBreak >> GettedBreak
		if not (GettedBreak = 1)
			NoBreak on
		endif
		try FindNext
		GetLastError >> error
	endwhile
endloop

if PMState = 2
	EditLayout
endif
if PMState = 3
	EditLayout
endif
if PMState = 4
	CloseStory place
endif