Não foi possível corrigir o comando `\hyper@normalise` com `\patchcmd`

Não foi possível corrigir o comando `\hyper@normalise` com `\patchcmd`

É possível adicionar um gancho ao \hyper@normalisecomando sem substituir toda a macro. Desejo adicionar um gancho no final da macro antes de \hyper@n@rmalisepoder adicionar definições personalizadas para normalizar.

Isto é o que eu quero alcançar:

\begingroup
  \endlinechar=-1 %
  \catcode`\^^A=14 %
  \catcode`\^^M\active
  \catcode`\%\active
  \catcode`\#\active
  \catcode`\_\active
  \catcode`\$\active
  \catcode`\&\active
  \gdef\hyper@normalise{^^A
    \begingroup
    \catcode`\^^M\active
    \def^^M{ }^^A
    \catcode`\%\active
    \let%\@percentchar
    \let\%\@percentchar
    \catcode`\#\active
    \def#{\hyper@hash}^^A
    \def\#{\hyper@hash}^^A
    \@makeother\&^^A
    \edef&{\string&}^^A
    \edef\&{\string&}^^A
    \edef\textunderscore{\string_}^^A
    \let\_\textunderscore
    \catcode`\_\active
    \let_\textunderscore
    \let~\hyper@tilde
    \let\~\hyper@tilde
    \let\textasciitilde\hyper@tilde
    \let\\\@backslashchar
    \edef${\string$}^^A
    \Hy@safe@activestrue
    \csname hyper@normalise@hook\endcsname % <--HERE
    \hyper@n@rmalise
  }^^A
\endgroup

Mas quero fazer isso \patchcmdsem precisar congelar \hyper@normalisena minha embalagem. Nesta macro, muitos catcodes são alterados, então ocorre um erro:

Runaway definition?
\active \def  \catcode `\
! File ended while scanning definition of \etb@resrvda.

MWE:

\documentclass{article}
\usepackage{etoolbox}
\usepackage{hyperref}

\makeatletter
\patchcmd\hyper@normalise{\hyper@n@rmalise}{\csname hyper@normalise@hook\endcsname \hyper@n@rmalise}{}{}
\show\hyper@normalise
\makeatother

\begin{document}
aa
\end{document}

informação relacionada