% This file is originated by
%  http://oku.edu.mie-u.ac.jp/~okumura/texfaq/fct4132.txt
% From: Yoshinaga Tetsumi <yosinaga@kusm.kyoto-u.ac.jp>
% Date: 21 Oct 1998 00:17:56 +0900

\newif\if@allowhyphenations
\def\AllowHyphenations{%
\@sethyphenchar\defaulthyphenchar
\@allowhyphenationstrue}
\def\DisableHyphenations{%
\@sethyphenchar\m@ne
\@allowhyphenationsfalse}
\def\@sethyphenchar#1{\hyphenchar\the\font#1\relax}
\let\@saved@selectfont\selectfont
\def\selectfont{%
\@saved@selectfont
\if@allowhyphenations
\@sethyphenchar\defaulthyphenchar
\else
\@sethyphenchar\m@ne
\fi}
\makeatother
