% Local configuration file for norsk.
% This will appear in Babel-3.7, with possible exception of french quotes.
% runekl@math.uio.no
%
% Standard TeX allows hyphenation after `-', but no hyphenation in the
% composing words.  Here we define a lot of different hyphen signs.
% Most useful for people who want to get things right even if there is
% a price to pay.
%
% "ff Hyphenate ff as ff-f.  Also implemented for
%     b, d, f, g, l, m, n, p, r, s, and t. (o"ppussing)
%
% "ee Hyphenate |"ee| as |\'e-e|. (|komit"een|)
%
% "-  an explicit hyphen sign, allowing hyphenation in the composing
%     words. Use this for compound words when the hyphenation patterns
%     fail to hyphenate properly. (verdi"-kommisjons"-rapporten)
%
% "|  Like "-, but inserts 0.03em space.  Use it if the compound point
%     is spanned by a ligature. (hoff"|intriger)
%
% ""  Like '"-', but producing no hyphen sign. (i""går).
%
% "~  Like -, but allows no hyphenation at all. (E"~cup?)
%
% "=  Like -, but allowing hyphenation in the composing words.
%     (marksistisk"=leninistisk).
%
% "<  for French left double quotes (similar to $<<$).
%
% ">  for French right double quotes (similar to $>>$).
%
\@namedef{\CurrentOption hyphenmins}{\tw@\tw@}
\initiate@active@char{"}
\addto\extrasnorsk{\languageshorthands{norsk}}
\addto\extrasnorsk{\bbl@activate{"}}
\addto\noextrasnorsk{\bbl@deactivate{"}}
\begingroup \catcode`\"12
\def\x{\endgroup
  \def\@SS{\mathchar"7019 }
  \def\dq{"}}
\x
\declare@shorthand{norsk}{"b}{\textormath{\bbl@disc b{bb}}{b}}
\declare@shorthand{norsk}{"B}{\textormath{\bbl@disc B{BB}}{B}}
\declare@shorthand{norsk}{"d}{\textormath{\bbl@disc d{dd}}{d}}
\declare@shorthand{norsk}{"e}{\textormath{\bbl@disc e{\'e}}{}}
\declare@shorthand{norsk}{"E}{\textormath{\bbl@disc E{\'E}}{}}
\declare@shorthand{norsk}{"D}{\textormath{\bbl@disc D{DD}}{D}}
\declare@shorthand{norsk}{"F}{\textormath{\bbl@disc F{FF}}{F}}
\declare@shorthand{norsk}{"g}{\textormath{\bbl@disc g{gg}}{g}}
\declare@shorthand{norsk}{"G}{\textormath{\bbl@disc G{GG}}{G}}
\declare@shorthand{norsk}{"k}{\textormath{\bbl@disc k{kk}}{k}}
\declare@shorthand{norsk}{"K}{\textormath{\bbl@disc K{KK}}{K}}
\declare@shorthand{norsk}{"l}{\textormath{\bbl@disc l{ll}}{l}}
\declare@shorthand{norsk}{"L}{\textormath{\bbl@disc L{LL}}{L}}
\declare@shorthand{norsk}{"n}{\textormath{\bbl@disc n{nn}}{n}}
\declare@shorthand{norsk}{"N}{\textormath{\bbl@disc N{NN}}{N}}
\declare@shorthand{norsk}{"p}{\textormath{\bbl@disc p{pp}}{p}}
\declare@shorthand{norsk}{"P}{\textormath{\bbl@disc P{PP}}{P}}
\declare@shorthand{norsk}{"r}{\textormath{\bbl@disc r{rr}}{r}}
\declare@shorthand{norsk}{"R}{\textormath{\bbl@disc R{RR}}{R}}
\declare@shorthand{norsk}{"s}{\textormath{\bbl@disc s{ss}}{s}}
\declare@shorthand{norsk}{"S}{\textormath{\bbl@disc S{SS}}{S}}
\declare@shorthand{norsk}{"t}{\textormath{\bbl@disc t{tt}}{t}}
\declare@shorthand{norsk}{"T}{\textormath{\bbl@disc T{TT}}{T}}
% Preserve the ff ligature.  From germanb.dtx.
\declare@shorthand{norsk}{"f}{\textormath{\bbl@discff}{f}}
\def\bbl@discff{\penalty\@M
  \afterassignment\bbl@insertff \let\bbl@nextff= }
\def\bbl@insertff{%
  \if f\bbl@nextff
    \expandafter\@firstoftwo\else\expandafter\@secondoftwo\fi
  {\relax\discretionary{ff-}{f}{ff}\allowhyphens}{f\bbl@nextff}}
\let\bbl@nextff=f
\declare@shorthand{norsk}{"<}{\flqq}
\declare@shorthand{norsk}{">}{\frqq}
\declare@shorthand{norsk}{"-}{\penalty\@M\-\bbl@allowhyphens}
\declare@shorthand{norsk}{"|}{%
  \textormath{\penalty\@M\discretionary{-}{}{\kern.03em}%
              \allowhyphens}{}}
\declare@shorthand{norsk}{""}{\hskip\z@skip}
\declare@shorthand{norsk}{"~}{\textormath{\leavevmode\hbox{-}}{-}}
\declare@shorthand{norsk}{"=}{\penalty\@M-\hskip\z@skip}
\endinput